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1.  INTRODUCTION 


The  CPS/Doppler  Heading  Reference  (GDHED)  program  is  an  Independent  Lab¬ 
oratory,  In-House  Research  (ILIR)  funded  program.  It  is  an  exploratory  devel¬ 
opment  of  a  navigation  concept  whereby  an  accurate  heading  reference  for  air¬ 
borne  and  ground  vehicles  is  generated  by  combining  Earth  Referenced  Velocities 
derived  from  the  Navigation  Satellite  Timing  and  Ranging  Global  Positioning 
System  (NAVSTAR  GPS)  with  Body  Referenced  velocities  derived  by  the  AN/ASN-128 
Doppler  Radar  Velocity  Sensor  (DRVS) . 

2.  OBJECTIVE 


The  objective  is  to  demonstrate  the  Heading  Accuracy  of  a  GPS/Doppler 
Heading  Reference  System. 

3.  BACKGROUND 


The  concept  of  a  GPS/Doppler  Heading  Reference  System  was  disclosed  during 
the  first  quarter  of  FY-80  in  the  form  of  a  patent  application.1  The  purpose 
of  the  invention  was  to  provide  a  non-magnetic,  non-gyrocompass  true  Heading 
Reference  System  for  Army  airborne  and  ground  vehicular  users.  Probable  uses 
of  this  invention  would  be  to  improve  compasses,  via  Kalman  filtering,  in  areas 
of  the  Earth  where,  due  to  variations  of  the  Earth's  magnetic  field,  magnetic 
compasses  may  not  be  used,  and  with  gyro  compass-based  systems  to  reduce  gyro¬ 
compass  errors  through  dynamic  calibration/alignment.  Also,  where  primary 
heading  references  may  be  a  casualty,  the  proposed  approach  would  yield  a 
"fail-back"  heading  reference. 

4.  SYSTEM  TECHNICAL  APPROACH 


The  design  for  a  GDHED  system  required  the  integration  of  five  separate 
systems.  These  systems  included: 

GPS  User  Equipment 

AN/ASN-128  Doppler  Radar  Sensor 

Attitude  Reference  System 

Computer  System 

Auxiliary  System 

The  systems  approach  involved  in  this  development  required  the  successful 
execution  of  the  following  tasks: 

a.  Acquisition  of  Prime  Equipments. 

(1)  Global  Positioning  System.  The  GPS  equipment  used  was  the  Texas 
Instruments'  "High  Dynamic  User  Equipment"  Advanced  Development  Model2  (Figure 
1).  A  functional  block  diagram  of  the  GPS  subsystem  is  depicted  in  Figure  2. 


1 "Global  Positioning  System/Doppler  Radar  Hybrid  Velocity  Derived  Heading  Ref¬ 
erence  System,"  Patent  Docket  No.  D-2071,  Jack  Gray,  Inventor. 

2"Texas  Instruments  Phase  1  GPS  User  Equipment,"  M.  J.  Borel,  et.  a!.,  NAVI¬ 
GATION:  Journal  of  the  Institute  of  Navigation,  Vol.  25,  No.  2,  Summer  1978. 
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Figure  2.  CPS  ubsys  tern  function  flow  diagram 
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GPS  SUBSYSTEM 


Tlie  (’PS  antenna  used  was  a  dual  frequency  (1227.6  MHz,  1575.4  MHz),  20  MHz 
bandwidth,  right-hand  eireularlv  polarized,  volute*  antenna  designed  by  CHU  As¬ 
sociates,  CA,  whose  antenna  VSWK  anul  radiation  patterns  are  depicted  in  Appen- 
d  i  x  A . 

The  GPS  preamplifier  used  was  Magnavox's  GPS  Phase  1  "X-Set"  Preamplifier 
whose  characteristics  are  presented  in  Appendix  B. 

The  GPS  subsystem  physically  consists  of  the  following  units: 

UNIT  FUNCTION 

Antenna/Preamplifier  Assemble  Receives  RF  signals  from  up  to  five 

satellites  and  filters,  amplifies  and 
transmits  the  signals  to  the  receiver/ 
processor  assembly  (see  Figure  3). 

Receiver  Consists  of  five  single  channel  re- 

. livers  connected  to  a  matrix  switch 
output,  and  a  chock  module  for  system 
timing.  Acquires,  tracks,  demodulates, 
and  performs  necessary  processing  to 
derive  pseudo  range,  pseudo  range  rate, 
down-link  data  and  system  time  from  the 
sa t el  1 i t e  s igna 1 s , 

Navigation  Processor  Provides  overall  GPS  subsystem  control 

and  performs  navigation  calculations. 

Provides  intercommunications  between 
tlie  receiver/processor  and  data  acqui¬ 
sition  computer.  This  unit  also  loads 
the  navigation  programs  into  processor 
memory. 

Gontrol/Displav  Ur  i t  Provides  tlie  human  interface  and  opera¬ 

ting  mode  control  functions  for  over¬ 
all  receiver  operation.  The  unit  con¬ 
sists  of  a  multifunction  keyboard  for 
receiver  mode  and  navigation  display 
control  and  alpha  numeric  displays  for 
monitoring  of  navigation  parameters. 

(2)  AN/ASN-128  Doppler  Radar  Velocity  Sensor.  The  AN/ASN-128  Doppler 
Radar  Velocity  Sensor  used  was  the  Singer  Kearfott  "Lightweight  Doppler  Navi¬ 
gation  System"  fing  i  met  i  ng  Devi*  I  opment  Model*  (Figure  4).  A  functional  block 
diagram  of  the  Doppler  subsystem  is  depicted  in  Figure  5.  The  Doppler  Subsys¬ 
tem  physically  consists  ol  the  following  three  units: 


3Lightweight  Doppler  Navigation  System  (LDNS) ,  F.TO-1201A,  The  Singer  Company, 
K’arfott  Division,  16  March  1676. 
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Figure  5.  Doppler  subsystem  function  flow  diagram 
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!'NIT 

Receiver-Transmitter  Antenna  (KTA) 


Signal  Data  Convertor  (SIX’) 

Computer  Display  Unit  (C DU) 


FUNCTION 

Transmits  RF(13.325  CHz)  energy  toward 
the  ground  in  four  non-coplanar  beams/ 
measures  the  four  Doppler  frequency 
shifts  in  the  backscattered  energy/ 
transmits  the  four  Doppler  frequency 
shifts  (in  terms  of  components  along 
tile  beam  directions)  to  the  SDC. 

Accepts  heading  and  vertical  reference 
synchro  signals,  and  along  with  Doppler 
beam  velocities  transmits  serial  digi¬ 
tal  outputs  to  the  CDF  computer. 

Accepts  from  the  SDC  beam  velocities. 
Heading,  Roll,  and  Pitch.  Performs 
the  Navigation  Computations/provides 
i  ill  ercommunicat  ion  between  the  DRVS  and 
Data  Acquisition  Equipment. 


(3)  Attitude  reference  system.  An  Air  Force  Model  MD-1  Displacement 
gyroscope4  was  the  Attitude  Reference  system  used.  It  is  a  2  degree  of  free¬ 
dom  gyro  which  generates  pitch  and  roll  signals  with  a  nominal  error  ot  1-de¬ 
grees  (standard  deviation).  These  signals  are  in  the  form  of  three  wire  syn¬ 
chro  signals. 

(A)  Hybrid  computer  system.  The  computer  selected  for  the  GDHED 
field  test  was  the  AN/UYK-34  MIL-SPEC  computer  manufactured  by  ROLM  Corpora¬ 
tion  as  their  Model  1610  (Figure  6).  This  is  a  high  speed,  16~bit  word  gen¬ 
eral  purpose  computer.  It  has  four  general  purpose  accumulator  registers  and 
contains  32-K  core  memory.  It  is  modular  and  has  standard  Interfaces  for  a 
te Leprinter/magnetie.  casette  tape  recorder,  and  paper  tape  reader/punch. 

Driven  by  a  real-time  clock,  it  includes  a  hardware  floating  point  capability. 
It  is  also  expandable,  providing  slots  for  special  interfaces,  such  as  the 
Doppler  ARINC  serial  bus  interface. 

Tiie  controlling  element  of  the  HYBRID  computer  is  the  Computer  Control 
Panel  (CCP) .  The  CCP  is  a  ruggedized  portable  unit  which  lias  the  capability 
of  the  following  major  functions: 

(a)  it  provides  direct  control  of  the  HYBRID  computer.  This  in¬ 
cludes  the  capability  to  examine  and  load  memory  so  as  to  modify  programs  on- 
1  ine 


(b)  it  provides  (lie  programmer  the  capability  to  monitor  and  de¬ 
bug  the  software  either  in  real-time  or  off-line. 

(c)  it  provides  memory  load  and  verify  capability  bv  use  of  a 
separate  paper  tape  reader. 

'•MIL-SPEC  M  ( L-G-2S597I)  (USAF),  Gyroscope,  Displacement,  Roll  and  Pitch,  Type 
MD-I ,  6  August  1973. 
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(d)  it  provides  diagnostic  capability  to  separate  hardware  and 
software  faults  and  to  troubleshoot  hardware  faults  in  the  computer. 

The  CCP  is  implemented  as  part  of  an  1/0  chassis  with  the  logic  cards 
mounted  in  the  chassis  behind  the  panel.  It  is  direct lv  connected  to  the  main 
Data,  Address,  and  Control  bus  in  the  computer  so  that  direct  access  is  pro¬ 
vided  to  all  modules. 


The  CCP  gives  the  operator  complete  control  over  computer  operation.  From 
the  panel,  the  operator  may  select  various  inodes  of  execution,  load  and  verify 
the  memory,  readout  contents  of  memory,  execute  instructions  from  front  panel 
switches,  and  display  register  contents  and  status. 

(5)  Auxiliary  system.  The  Auxiliary  system  consists  of  the  standard 
computer  peripheral  equipments  that  are  used  to  load  and  print  out  computer 
data.  These  are  listed  below,  along  with  a  brief  description. 

UNIT  FUNCTION 


Teletype  Unit  (T.I.  733) 

Paper  Tape  Reader/Punch  (IOMEC) 
Magnetic  Casette  Tape  Unit  (T.I.  733) 


Real  time  display/hardcopy  of  GDHED 
system  performance. 

Loads/punches  out  GDHED  software  into/ 
out  of  the  HYBRID  computer. 

GDHED  data  logging  for  post-mission 
analysis. 


b.  Development  of  Hybrid  Computer  Real  Time  Stand  Alone  (RTOS)  Software. 
The  initial  step  in  generating  the  software  was  the  invention  of  the  GDHED 
concept  in  the  patent  application.  Having  established  this  requirement,  which 
mathematically  formulated  the  equations  which  were  ultimately  implemented,  an 
error  analysis  was  performed.  This  analysis  identified  all  error  sources  and 
determined  their  contribution  to  the  total  system  error.  The  validity  of  the 
mathematical  formulations  was  performed  on  a  general  purpose  large  scale  com¬ 
puter  along  with  the  error  analysis  (see  Appendix  C  for  program  listing). 


(1)  GDHED  error  analysis.  The  potential  performance  to  be  expected 
of  the  GDHED  system  is  fairly  easy  to  deduce  from  an  analytical  approach.  Ex¬ 
pressions  for  the  North  ^n) ,  East  (^H) ,  Along-Track  (^H)  and  Cross-Track  (^D) 
velocities  of  the  vehicle  are  first  obtained,  and  then  the  GDHED  equation  is 
derived.  The  GDHED  equation  is  then  examined  for  sensitivity  to  errors  in  the 
variables,.  Following  this,  the  sensitivity  analysis  is  extended  to  a  statisti¬ 
cal  consideration  of  the  overall  error  which  is  likely  to  result. 


(2)  Derivation  of  GHDED  equations.  Before  an  analysis  of  the  GDHED 
error  can  be  performed,  a  brief  description  of  the  two  velocity  measuring  sys¬ 
tems  is  in  order  including  the  equations  defining  the  problem  geometry.  In  the 
derivation,  the  heading  is  described  as  a  function  of  those  parameters  which 
are  both  pertinent  to  the  problem  geometry  and  capable  of  being  measured. 
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(a)  NAVSTAR  GPS.  The  Global  Positioning  System  is  a  satel¬ 
lite  referenced  radio  navigation  system.  It  basically  consists  of  a  constel¬ 
lation  of  satellites  and  a  ground  tracking  network  (Figure  7).  The  ground 
tracking  network  periodically  measures  and  updates  the  epliemeride  of  each  sat¬ 
ellite  and  keeps  all  the  satellite  clocks  synchronized.  The  satellites  con¬ 
tinuously  transmit  orthgonally  binary  coded  ranging  signals  to  the  user.  These 
coded  signals  also  serve  to  identify  which  satellite  signal  is  being  received. 
By  using  a  code  correlat  ion  detector,  the  Cl’S  equipment  can  measure  the  t  into 
delay  of  the  transmitted  signal.  This  time  delay  measurement  not  only  includes 
the  signal  propagation  delay  but  also  the  clock  bias  and  clock  bias  rati1  dif¬ 
ferences  between  the  user  equipment  and  the  satellites. 

A  GPS  system  user  equipped  with  passive  one-way  ranging  equipment  (anten¬ 
na,  receiver,  and  computer)  can  determine  his  position  and  velocity  by  measur¬ 
ing  the  GPS  signal  time  of  arrival  together  with  the  GPS  signal  doppler.  The 
antenna  receives  all  available  satellite  signals  and  the  receiver  selects  four 
of  the  satellites  to  establish  four  independent  pseudo-ranges  and  pseudo-range 
rates.  The  user  computer  then  solves  the  navigation  equations  to  derive  the 
user  position/velocity  using  those  satellites. 

The  GPS  outputs  used  by  the  GDHED  system  are  the  North  velocity  (Vn(gps)) 
and  East  velocity  (Ve(GPS))- 

(b)  AN/ASN-128  Doppler  radar  sensor  system  -  The  AN/ASN-128 
Doppler  Radar  System  measures  velocities  by  sensing  the  reflected  Doppler 
shifts  of  a  downward  transmitted  microwave  signal  along  four  shaped  antenna 
beams  (Figure  7).  The  Doppler  frequency  tracker  determines  the  center  of  power 
(mean  frequency)  of  the  noiselike  Doppler  frequency  spectrum  obtained  from  the 
ground  echo  and  through  mixing  the  Doppler  signal  with  a  tracking  oscillator 

derives  the  Doppler  shift  for  each  of  the  four  beams.  Since  the  Doppler  an¬ 

tenna  is  attached  to  the  vehicle,  the  antenna  beam  geometry  is  defined  in  terms 
of  vehicle  coordinates.  The  measured  Doppler  frequencies  are  processed  by  the 
Doppler  computer,  and  converted  to  vehicle  coordinate  velocities. 

The  Doppler  generated  vehicle  body  axis  velocities  V-%,  Vy,  Vj>  must  be 
tempered  due  to  pitch  and  roll  motions  of  the  vehicle  since  the  derived  Doppler 
coordinate  velocities  apply  only  when  the  vehicle  is  moving  straight  and  level 
(l.e.,  when  vehicle  body  axis  Vx,  Vy,  Vjr  coincide  with  the  Vp,  Vp,  Vy  axis). 

If  the  vehicle  experiences  a  change  in  Pitch  (P)  (i.e.,  a  rotation  about 

the  Vp  axis  (Figure  8)  the  coordinate  transformation  relationship  is 
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Figure  9.  Doppler  coordinate  system  for  roll  change 


Ret  erring  to  I'iguio  a  rotation  about  the  Vy  axis  results  in  a  change 
vehicle  Roll  (K)  and  is  described  by  the  following  matrix. 


1  0 


0  cos ( R) ,  -sin(R) 


0  sin(R),  cos  (R) 


Multiplying  both  matrices  for  pitch  and  roll  changes. 


I  vn  fcos(P),  sin  ( P)  s  in  ( K) ,  sin(P)  cos  (R)  ”|  [~V 


j  Vn  j  =  0  ,  eos(R), 


-sin(R) 


j  “Vp  j  )  -.qin(P) ,  cos(P)  sin(R),  cos(P)  cos(R)  Vy 


When  a  Vertical  f.vrn  is  mounted  along  the  heading  and  drift  axis  of  the 
veliicle,  the  roll  and  pitch  values  will  he  provided  to  the  Doppler,  and  the 
desired  heading,  velocity  (Vp)  and  Drill  Velocity  (Vp)  can  he  calculated,  since 
Vy,  Vy ,  and  Vy  had  already  been  determined. 

The  Vp  and  Vp  axis,  being  the  straight  and  level  flight  axes  of  the  ve¬ 
hicle,  mnv  he  viewed  on  a  Spherical  Earth  coordinate  system  as  a  tangent  plane 
perpendicular  to  an  imaginary  radial  (Re)  emanating  from  the  center  of  the 
Earth  (Figure  10).  These  Doppler  velocities,  Vp  and  Vp  are  the  remaining  velo- 
cit  ies  required  in  the  GDHEl)  svstem. 

(c.)  GPS/ Doppler  heading  reference  system  description.  The  co¬ 
ordinate  system  shown  in  Figure  11  will  be  used  to  obtain  the  GPS/Doppler  Radar 
Sensor  velocitv  derived  heading  equations.  These  equations  are  as  follows: 


VN  =  VH  cos  (H)  -  Vp  sin  (H) 
Vi;  -=  Vp  cos  (II)  +  V..  sin  (H) 


Solving  for  cos(ll)  and  sin(ll) 


nn  V. .  V,|  +  Vr,Vr. 
cos ( H)  =  N  H  D  E 


sin(H)  = 


V  V  V  V 
H  E  -  N  I) 


Figure  10.  Doppler  velocities  V^j,  geometry 


VN  =  North  velocity 
i k VE  =  East  velocity 

Vj^  =  Heading  velocity 
Vn  =  Drift  velocity 
H  =  Heading 


therefore, 


Heading=H=  Arc  tan 


V  V  _  v  V 

H  E  VN  D 

V  V  +  V  V 

N  H  D  E 


(  6) 


The  V^,  Vg  velocities  would  be  provided  by  Vj^gpg)  ,  Vjr^ypg)*  ^he 
velocities  would  be  provided  by  the  Doppler  Radar  Sensor. 

(2)  Derivation  of  CDHED  error  equations.  A  linear  error  analysis  was 
performed  on  the  CDHED  variables;  namely,  Pitch  (P),  Roll  (R) ,  North  Velocity 
(VN) ,  East  Velocity  (Vg),  and  Bodv-fixed  coordinate  velocities  (Vx,  Vy ,  V z) 

Although, 


H  =  H  (Vn,VE,VD,VtJ), 

Vp  and  Vp  are  dependent  upon  other  variables,  namely, 
VH  =  VH(Vx,Vy,V,,P,R) 

and  VD  =  VD(Vx,Vy,Vz,P,R) 

therefore,  11  =  H(VN,VE,VX, Vy ,VZ,P,R) 

Letting 


fn  =  p 
=  R 


r-l  =  VX 


V 

ir  «  V 


7 


f'6  =  VN 


^7  *  VE 


and  taking  the  total  differential  of  H  vields, 
7 

dii  =  ill  d4 
i=l  37 1 
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letting  Ejj  =  djj,  where  is  the  error  in  the  computed  value  of  Heading, 
and  letting  de^  =  where  e  ^  is  the  error  in  the  measurement  of  the  1th 

variable. 


Then 


% 


7 

Z  9H  e. 
i-1  3F,i 


Calculating  the  partial  derivative  of  H  with  respect  to  the 


(7) 


Vu  V 


H1  _  ’H  VE  -  N  D 


v„vr 


V..V 


N  H 


+  VnV 


D  E 


(8) 


3H_  _  1  3H1  (9) 

3Vh  l+CH1)2’  3VH 


3H1 

=  VD  (VE2+VN2  ) 

3VU 

(V»VH  +  VDVE,2 

3H1 

VW) 

3VE 

’WVe)2 

3H 

1  3H1 

3VE 

”  1+0J1)2  3VE 

3H1 

.  -vh(ve2+v82  ) 

3Vd 

(vnvh+vdveF 

3H 

1  3H1 

3Vd 

1+(H^-)2  3Vd 

3H1 

_  _ve(vh2+vd2  ) 

3VN 

^NvH+vDve)/ 

3H_  .  - 1 _  3H1 

3Vn  l+Ol1)2  3Vn 


(10) 

(ID 

(12) 

(13) 

(14) 

05) 

(16) 


3V„ 

3P 


-Vx  SIN  (P)  +  Vy  COS(P)  SIN(R)  +V;r  COS(P)  COS(R) 


(17) 


;ir 


(18) 


=  Vy  COS (R) SIN (P)  -VZSIN (R) SIN (P) 


av 


3V, 


H  =  COS(P) 


(19) 


3V 


11  _ 


av, 

av 


=  SIN (P)  SIN (R) 


(20) 


av. 


H  =  SIN(P)  COS (R) 


(21) 


av. 


d  =  ,p 


(22) 


?P 


av 

3R 


D  =  -Vv  SIN(R)  -Vz  COS (R) 


(23) 


:)VD  = 


(24) 


av. 


av 


ii  _ 


av. 


-SIN(R) 


(25) 


av, 


=  -VzCOS(R) 


(26) 


Combining  equations  (8)  through  (26)  into  equation  (7)  we  obtain 


3H 


kh  =  —  dvH  +  M-  dvF  +  ML  dvn  + 

M  av,.  M  n.,,  h  u 


9H 


dH 


av 


av 


avD 


avN  dvN 


(27) 


where 


avu  .  av. 


9P 


9r  av. 


dV 


=  av, 


ar 


- V.  dR  + 

or  avx 


avH 

+  — “  dV 

+ 

avH  dV 

(28) 

avy 

y 

avz 

9VD  dvv  + 

avD 

dVz 

(29) 

avy 

9VZ 

[’qua t ion  (27)  defines  the  total  error  in  heading  as  a  function  of  the 
..even  C.0HED  variables  \'N,  Vjr,  Vx,  Vy,  Vz,  P,  R  and  the  seven  assoc  iated  error 


(4)  Statistical  simulation  resu its.  tn  order  to  determine  the  total 
CDHKl)  statistical  error,  the  following  conditions  were  assumed: 


If  we  assume  that  the  seven  CDHED  variables  have  been  .assigned  specific 
values,  then  the  variable  elements  in  equation  (27)  are  fixed.  Let  these  ele¬ 
ments  be  denoted  ('{.  Next  assume  that  the  ei  are  independent,  normally  dis¬ 
tributed  random  variables  with  density  functions. 


fi(n)  =  n  [ m ,  c>i] 


1 


0  V  27T 
i 


-(n-Ui)7-/ to  i2 


It  can  then  be  shown  that  the  density  function  corresponding  to  the  random 
variable 

7 

Eii  =  C  .  e  j 

t-1  1  ‘ 


is  normal  with  mean 

and  standard  deviation 

7  2  1/2 

oH  =  (  e  (ct  0lr) 

i=l 

Based  upon  these  asumptions,  several  techniques  were  used  in  performing 
the  simulation.  The  first  consisted  of  choosing  nominal  values  of  V^*,  P,  H, 
and  R  and  allowing  them  to  vary  in  increments  over  predetermined  ranges. 

Tables  1  and  2  list  the  standard  deviations  corresponding  to  each  e^  anti 
the  maximum,  minimum,  and  Incremented  values  of  the  GDHED  parameters. 


!i 


I 


TABLE  1.  STANDARD  DEVIATIONS  AND  MEANS  CORRESPONDING  TO  EACH  VARIABLE 


ERROR  STANDARD  DEVIATION  (KNOTS)  MEAN 


°VN 

0.  1 

0 

e. 

M* 

0.1 

0 

% 

0.0025  VT  +  0.1 

0 

ev 

y 

0.0025  V?  +0.1 

0 

ev 

7 

0.001  V-j.  +  0.05 

0 

ep 

3.0° 

0 

eR 

3.0° 

0 

TABLE  2.  MAXIMUM,  MINIMUM,  AND  INCREMENTAL  VALUES  OF  THE  GDHED  PARAMETERS 


PARAMETER 

MINIMUM 

MAXIMUM 

INCREMENT 

! 

Vr[' 

10  knots 

100  knots 

10  knots 

H 

0° 

355° 

5° 

1° 

46° 

5° 

R 

1° 

O 

rH 

cn 

I 

5° 

^Lightweight  Doppler  Navigation  System  (LDNS)  Electronics  Command  Development 
Specification,  EL-SS- 10 50-001  A.  '  .itine  1173. 

‘journal  of  the  Institute  of  Navigation,  Summer  1978  -  Vol.  25,  112,  "Princip- 
ples  of  Operation  of  NAVSTAK"  -  R.  .1.  Mi  I  liken  and  C.  .1.  Xollor,  p.  95-106. 
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Allowing  these  parameters  to  assume,  progressively,  their  respective 
incremental  values,  21,600  GDHF.D  states  may  be  obtained. 

The  resultant  mean  and  standard  deviation  of  the  simulated  CDHED  system 
which  was  run  under  the  constraints  listed  in  Tables  2  and  3  were: 

GDHED  mean  error  =  0.04 ° 

GDHED  standard  deviation  =  0.37° 

Realizing  that  the  Doppler  velocity  errors  were  dependent  upon  total  ve¬ 
hicle  velocity,  V^,  it  became  of  interest  to  investigate  the  expected  total 
GDHED  error  whereby  all  parameters  and  errors  listed  in  Tables  1  and  2  were 
left  unaltered  except  that  the  parameter  V-p  was  held  constant  throughout  each 
run.  The  results  of  each  run  were  then  a  function  of  Vj,  which  assumed  values 
ranging  from  5  knots  for  the  first  run,  to  100  knots  for  the  tenth  run.  Table 
3  shows  the  results  of  these  runs. 

TABLE  3.  CONSTANT  VELOCITY  STATES  AND  TOTAL  GDHED  ERROR 


VT  (KNOTS) 

MEAN 

GDHED  ERROR 

STD  DEVIATION 

5 

o 

■£> 

o 

0.24° 

10 

0.03° 

0.21° 

20 

0.02° 

0.22° 

30 

0.01° 

0.25° 

40 

0.01° 

0.28° 

50 

0.00° 

0.31° 

60 

0.00° 

0.35° 

70 

0.01° 

0.39° 

80 

0.02° 

0.44° 

90 

0.03° 

0.49° 

100 

0.04° 

0.54° 

By  examining  Table  3  we  see  a  slight  improvement  of  the  GDHED  system  if 
the  vehicle  velocity  is  held  constant,  and  low,  as  compared  to  its  performance 
over  a  wide  range  of  variable  velocities. 
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Another  series  of  runs  were  made  to  determine  the  effects  of  degraded  GPS 
performance  upon  the  GDHED  system.  In  this  scenario  the  variables  and  errors 
depicted  in  Tables  1  and  2  remained  the  same,  with  the  exception  of  the  GPS 
velocity  errors,  ey^  and  These  GPS  velocity  errors  were  varied  for  each 

run,  starting  from  minimum  of  0.1  knots  for  the  first  run,  to  a  maximum  of  5.0 
knots  for  the  fifth  run.  Table  4  shows  the  results  of  these  runs. 

TABLE  4.  GPS  ERROR  STATES  AND  TOTAL  GDHED  ERROR 


GPS  ERROR  STATE 

eV  =  ev  (KNOTS) 

N  VE 

GDHED 

MEAN 

SYSTEM  ERROR 

STANDARD  DEVIATION 

0.1 

0.04° 

0.37° 

0.5 

0.04° 

0.40° 

1.0 

0.04° 

0.50° 

2.0 

0.04° 

0.91° 

5.0 

0.03° 

3.80° 

It  should  be  pointed  out  that  all  the  runs  assumed  that  Vx  =  Vy  =  Vz 
throughout.  This  condition  therefore  simulates  vehicle  is  not  only  moving 
horizontally,  but  also  vertically. 

(5)  GDHED  RTOS  software.  Having  verified  the  GDHED  mathematical 
formulations,  explicit  mechanization  equations  had  to  be  generated. 

The  GDHED  software  was  designed  to  meet  future  applications  of  an  integra¬ 
ted  GPS-Doppler  system  as  well  as  the  immediate  needs.  It  is  completely  modular 
in  concept  according  to  function.  Each  function  consists  of  driver,  processor, 
and  monitor  subfunctions.  The  driver  function  provides  the  logic  necessary  to 
effect  communication  and  data  transfer  between  computer  and  an  external  device. 
The  processor  subfunction  performs  the  required  data  manipulation  and/or  compu¬ 
tations.  The  monitor  subfunction  provides  the  interface  between  a  module  and 
the  Real-Time  Executive  (RTE) . 

Written  in  Assembly  language,  and  entirely  core-resident,  the  GDHED  soft¬ 
ware  is  partioned  as  follows: 

(a)  The  Real  Time  Executive  module  controls  the  internal  job 
flow.  These  jobs  include  generalized  priority  scheduling,  input/output  (I/O) 
and  interrupt  management  and  error  management. 

(b)  The  Ini t  i  a  1  i zation  module  performs  the  initialization 

I  uni- Lion  on  system  startup.  Lt  initializes  the  status  of  each  program  module 
anil  activates  the  modules  necessary  to  begin  system  operation. 


■.  4'v 
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(c)  Tlio  (IPS  Interrupt  module  receives  navi  gat  ion/ system  status 
data  from  the  GPS  set,  monitors  system  alerts  of  changes  in  communication 
status,  and  performs  reasonableness  checks  on  incoming  data. 

(d)  The  Doppler  Interrupt  module  performs  identically  as  the 
GPS  Interrupt  moduLe  for  navigation/system  status  data  from  the  Doppler  set. 

(e)  The  Auxiliary  System  Interrupt  module  enables  the  keyboard 
for  the  operator;  enables  system  status  and  data  printouts,  monitors  teletype 
status  in  order  to  insure  orderly  transfer  of  input  and  output  data;  decodes 
keyboard  inputs;  formats  data  for  printout  loading* 

(f)  The  Math  Module  provides  double  precision  floating  point 
trigonometric  functions  for  the  GDHED  calculations. 

(g)  The  Formatter  module  decodes/packs,  floating  point/fixed 
point,  input/output,  data/messages  into  ASCII  input/output  buffers. 

(h)  The  GDHED  module  contains  the  mathematical  algorithms  of  the 
system  and  outputs  the  results  to  the  auxiliary  equipment . 

figure  12  depicts  the  software  modules  used  in  the  GDHED  system.  These 
seven  modules  provide  a  modifiable,  expandable,  and  flexible  navigation  soft¬ 
ware  system.  Appendix  D  provides  a  complete  listing  of  the  GDHED  RTOS  programs. 
These  programs  were  developed  in  this  Activity's  Hybrid  Computer  Laboratory 
(Figure  13)  using  ROLM's  Real-Time  Disk  Operating  System  (RDOS). 

After  the  programs  were  successfully  tested  under  RDOS,  all  the  programs 
were  transferred  onto  paper  tape.  This  GDHED  RTOS  tape  when  loaded  via  the 
paper  tape  reader  into  the  HYBRID  computer  enables  a  real-time,  stand-alone, 
non- RDOS,  GDHED  mode  of  operation. 

c.  Design  of  GPS  and  Doppler  Interface  Units.  The  GPS  and  Doppler  Inter¬ 
face  Units  were  designed  in-house.  The  GPS  Interface  unit  (Figure  14)  was  de¬ 
signed  to  provide  a  16-bit  parallel,  256-word  data  block  transfer  via  Direct 
Memory  Access  (DMA)  to  the  HYBRID  computer.  Buffers,  time  delay /synchroniza¬ 
tion  circuits  were  needed  since  the  GPS  set  employs  dual  differential  logic 
while  the  HYBRID  computer  operated  with  TTL  gates;  and  transfer  rates  had  to 
be  adjusted  between  the  two  systems.  The  DMA  operation  was  designed  such  that 
when  enabled  it  came  under  the  control  of  the  GPS  set.  Therefore,  only  when 
the  GPS  set  was  ready  to  send  out  data  could  the  HYBRID  computer  process  it. 

The  Doppler  Interface  Unit  was  designed  to  provide  for  the  transfer  of  the 
Doppler  Auxiliary  digital  output  signals  as  specified.7  The  Doppler  set  seri¬ 
ally  transmits  both  32-bit  Binary  and  BCD  coded  data.  The  Doppler  interface 
converted  the  32-bit  serial  data  into  16-bit  parallel  slices  and  transferred 
it  in  blocks  using  a  DMA  channel,  similar  to  the  GPS  DMA  channel.  This  al¬ 
lows  up  to  128-ARINC  words  to  be  transferred  without  interruption. 


7MIL-SPEC  MIL-N-49098  (EL),  Navigational  Set,  Doppler  AN/ASN-128(  ),  26  July 
1976. 
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Both  the  GPS  and  Doppler  Units  used  DMA  channels  since  this  mode  of  trans¬ 
fer  was  not  only  the  fastest  (640  K  words/sec)  but  also  most  efficient  (block 
transfers).  At  the  DMA  speed,  the  HYBRID  computer  could  easily  accomodate  the 
GPS  data  update  rate  (IIU  block  206)  of  0.64  seconds  and  the  Doppler  data  up¬ 
date  rate  of  7.5/second. 

The  Doppler  prototype  interface  unit  as  originally  designed  worked  well; 
however,  its  size,  weight,  and  power  consumption  was  excessive.  It  was  there¬ 
fore  decided  to  improve  the  design  and  incorporate  its  entire  function  within 
the  HYBRID  computer  I/O  chassis.  The  resultant  saving  in  size,  weight,  and 
power  is  depicted  in  Figure  15. 

d.  Integration  of  Experimental  GDHED  System.  The  next  step  in  the  process 
was  to  perform  as  much  hardware  testing  as  possible  without  use  of  the  computer. 
Then  parts  of  the  system  were  interconnected  individually  to  the  HYBRID  Compu¬ 
ter  with  simple  programs  loaded  in  computer  memory.  Gradually,  this  process 
was  bootstrapped  up  until  the  entire  system  was  functioning  as  designed. 

The  most  difficult  phase  of  this  operation  was  to  insure  proper  electro¬ 
magnetic  compatability  between  the  subsystems.  The  proper  type  of  intercon¬ 
necting  wire,  shielding  and  sheathing,  grounding  and  bonding,  cable  routing  and 
cross-talk  elimination  in  the  interface  cables  was  of  paramount  importance  to 
assuring  successful  operation,  since  external  and  self-generated  transients 
prevented  the  entire  system  from  operating  properly  initially.  Only  when  the 
above  steps  were  completed  was  the  hardware  ready  for  integration  testing. 

e.  Van  Installation.  The  GDHED  equipment  was  installed  aboard  this 
Activity's  van  (Figure  16)  in  preparation  for  van  tests.  This  equipment  is 
functionally  depicted  in  Figure  17. 

(1)  Interior  equipment.  The  installation  design  called  for  four 
racks  of  equipment  that  could  be  symmetrically  located  and  provide  for 
functional  grouping  of  the  equipment  with  good  weight  and  balance  properties. 

Figure  18  shows  the  GPS  and  Doppler  Equipment  rack  mounted.  In  the  fore¬ 
ground  we  see  the  GPS  equipment.  In  the  background  the  Doppler  equipment  and 
a  display  mount  housing  the  GPS  and  Doppler  Control  Display  Units. 

Figure  19  shows  the  Hybrid  Computer  Rack.  Scanning  from  top  to  bottom 
we  see  the  paper  tape  reader  above,  and  the  Hybrid  Computer  system  with  GPS/ 
Computer  Interface  Unit  below  it. 

Figure  20  shows  the  Teletype  printer  and  magnetic  cassette  tape  recorder; 
and  below  it  the  attitude  reference  system. 

(2)  Exterior  equipment.  The  exterior  equipment  consisted  of  the  re¬ 
spective  GPS  and  Doppler  antenna  assemblies.  Figure  21  shows  the  location  of 
the  GPS  antenna  on  the  van.  This  site  was  chosen  to  maximize  signal  reception 
and  minimize  superstructure  shadowing  and  electromagnetic  interference. 

At  the  rear  of  the  van,  the  Doppler  antenna  was  mounted  on  a  cantilever 
bracket  running  along  the  longitudinal  axis  of  the  van  and  extending  horizon¬ 
tally  from  the  van's  roof;  the  Doppler  antenna's  aperture  facing  the  earth's 
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AN/ASN-1 2 8  DOPPLER  ARINC/HYBRID  COMPUTER  INTERFACE 


Figure  15.  AN/ASN-1 28  Dopp 1  or /AH IN('/hvbr id  computer  interface 
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9.54 


DATA  ACQUISTION  SUBSYSTEM 


surface  (Figure  22).  In  accordance  with  the  Doppler  set's  installation  speci¬ 
fication,  the  Doppler  antenna  was  mounted  such  that  no  interference  of  the 
radiating  beam  occured  due  to  any  superstructure. 8 

It  was  important  in  mounting  the  Doppler  antenna  to  avoid  misalign¬ 
ment  with  respect  to  the  longitudinal  axis  of  the  vehicle,  since  this  condi¬ 
tion  would  result  in  along-track  (V^)  and  cross  track  (Vp)  velocity  errors. 


TABLE  5.  GDHF.D  SIZE,  WEIGHT,  AND  POWER  REQUIREMENTS 


UNIT 

SIZE 

H  x  W  x  D 
inches  (CM) 

WEIGHT 

lbs  (kg) 

POWER 

115  V 

400  Hz,  30 
watts 

115  V 

60  Hz 
watts 

GPS  Antenna 
and  Pre¬ 
amplifier 

12  (30.5) 
antenna  w/4 
(10.2)  dia  base 
Prw  amp  3.0  x 
208.0  x  5.0 
(7.6  x  20.3  x 
12.7) 

10 

(22) 

18.5  VDC  @  luU  mz 
(1.85) 

GPS  Equipment 
Rack 

30.0  x  22.0  x 
22.0 

(76.12  x  55.82 
x  55.82) 

207 

(455.4) 

670 

AN/ASN-128 

Doppler 

Antenna 

14.56  x  13.48  x 
1.92* 

9 

(19.8) 

Supplied  via  Doppler  SDC 
located  in  Doppler  Equip¬ 
ment  Rack  < 

AN/ASN-128 

Doppler 

Rack 

10  x  24  x  14 
(25.37  x  60.90 
x  35.53) 

21 

(46.2) 

20  VDC  @  3.52  A 
(98.6) 

HYBRID  Compu¬ 
ter**  Equip¬ 
ment  Rack 

12  x  17  x  19 
(30.45  x  43.13 
x  48.21) 

50 

(110) 

500 

1.2 

Auxiliary 

Equipment 

Rack 

36  x  22  x  22 
(91.35  x  55.82 
x  55.82) 

75 

(165) 

250 

TOTAL 

372 

(818.4) 

1170 

351.65 

*Does  not  include  5.58  x  5.58  x  2.91  (14.77  x  14.17  x  7.39)  receiver- 
transmitter  unit. 

**Includes  GPS/HYBRID  computer  Interface  Unit 


9MIL-I-59162  (EL),  Military  Specification,  Navigational  Set,  Doppler  AN/ASN-128, 
Installation  and  Acceptance  Testing  of. 
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5.  VAN  TESTS 


a.  Special  Conditions:  GPS  Satellite  Availability  Considerations.  Al¬ 
though  the  final  GPS  satellite  configuration  will  include  18  satellites  pro¬ 
viding  continuous  world-wide  coverage,  the  satellite  configuration  during  the 
time  ot  the  van  tests  included  a  total  of  5  satellites,  4  of  which 
are  required  to  be  in  view  at  any  one  time  to  provide  accurate  velocity  data. 
This  limited  satellite  system  configuration  imposes  time  availability  con¬ 
straints  in  obtaining  GPS  data.  Figure  23 provides  a  sample  description  of 
satellite  availability  for  the  Fort  Monmouth,  NJ  area.  For  the  purpose  of 
planning  and  scheduling,  acceptable  continuous  availability  of  GPS  information 
was  limited  to  a  2-hour  time  frame.  Daily  scheduling  was  centered  about  this 
time  interval. 

The  van  test  was  run  11  August  1980.  For  this  date  the  following  four 
GPS  satellites  became  available  in  the  Fort  Monmouth,  NJ  area  at  9:00  PM  EDT: 
NAVSTARS  1,  3,  4,  and  5.  The  calculated  Geometric  Dilution  of  Precision 
(GDOP)  for  this  constellation  over  the  Fort  Monmouth  area  varied  as  follows: 

tQ  GDOP  =4.8 

tQ  +  30  -*■  GDOP  =  5.1 

tQ  +  61  GDOP  =  6.9 

tQ  +  90  GDOP  =  12.9 

t0  +  120  -*■  GDOP  =  40.1 

where  tc  =  inital  time  four  satellites  available  (minutes) 

The  accuracy  with  which  one  can  measure  position/velocity  and  time  is  related 
to  the  accuracy  in  radial  range  measurement  by  this  GDOP.  When  these  satel¬ 
lites  passed  over  Vandenberg  AFB,  CA,  the  measured  range  error  for  the  satel¬ 
lites  were  as  follows: 


NAVSTAR 

1 

3 

4 

5 


RANGE  ERROR  (METERS) 
Mean  Std  Deviation 

-5.1  4.1 

-2.4  -1.6 

0.3  0.4 

0.3  0.6 


b.  Operating  Area  Characteristics.  Operating  Area  selection  was  based 
upon  straightness  (constant  heading)  of  roads  and  open  visibility  to  GPS 
satellites.  In  consideration  of  these  factors,  the  following  operating  areas 
were  chosen  (Figure  24). 
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(1)  Route  34,  between  Collingwood  Circle  and  Hurley’s  Pond  Road, 
Monmouth  County,  NJ. 

(2)  Route  38,  between  Allenwood  Road  and  Barkalow's  Corner-Old  Mill 
Road,  Monmouth  County,  NJ.  (Figure  23  was  taken  from  a  set  of 

1:24,000  U.S.  Geological  Survey  maps  for  the  New  Jersey  area.) 

c.  General  Requirements.  Operations  consisted  of  a  series  of  runs  at 
various  constant  speeds  up  and  down  the  selected  operating  sites.  Table  6 
summarizes  the  test  run  parameters. 


TABLE  6. 

GDHF.D 

TEST  PARAMETERS 

RUN 

ROUTE 

HEADING 

(TRUE) 

LENGTH 

(KM) 

SPEED 

1 

38 

87° 

1.238 

48.279  KM/HR  (30  MPH) 

2 

38 

267° 

1.238 

48.279  KM/HR 

3 

38 

87° 

1.238 

32.186  KM/HR  (20  MPH) 

4 

38 

87° 

1.238 

32.186  KM/HR 

5 

34 

342° 

1.981 

48.279  KM/HR 

6 

34 

162° 

1.981 

48.279  KM/HR 

7 

34 

342° 

1.981 

32.186  KM/HR 

8 

34 

162° 

1.981 

32.186  KM/HR 

9 

34 

342° 

1.981 

80.465  KM/HR  (50  MPH) 

10 

34 

162° 

1.981 

80.465  KM/HR 

Ten  runs  were  made  utilizing  velocity  data  from  the  GPS  and  Doppler  sys¬ 
tems  and  attitude  data  from  the  MD-l  gyro.  The  runs  consist  of  two  straight 
line  legs.  The  first  leg  (Rt  38)  is  1.238  km,  the  second  leg  (Rt  34)  is 
1.981  km. 

The  errors  in  each  leg  were  determined  by  correlating  the  real-time 
HYBRID  computer  generated  data  with  the  "true"  headings  of  the  two  legs  ob¬ 
tained  front  1:24000  U.S.  Geological  Survey  maps.  Figure  25  represents  a 
sample  printout  by  the  onboard  teletype  of  the  real-time  GDHED  data. 

The  printout  allowed  the  operator  to  know  approximately  how  well  the 
tests  were  progressing.  The  data  was  formatted  such  that  the  following  infor¬ 
mation  was  made  available: 
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TIME 

GYRO 

GDHED 

ERROR 

VELOCITY 

GPS  ST, 

5296.3 

3.01 

2.82 

-0.19 

82.2 

4.0 

6300.5 

3.0.! 

2.84 

-0.18 

88.7 

4.0 

5  304.  ! 

3.0!’ 

2.84 

-0.18 

86.4 

4.0 

5308.0 

3.01 

2.82 

-0.19 

83.4 

4.0 

5311.8 

3.02 

2.79 

-0.23 

78.2 

4.0 

5315.6 

3.02 

2.79 

-0.23 

76.4 

4.0 

5319.3 

3.04 

2.81 

-0.23 

81.6 

4.0 

5323.1 

3.04 

2.77 

-0.27 

83.6 

4.0 

5326.8 

3.04 

2.83 

-0.21 

86.7 

2.0 

5330.5 

3.03 

2.81 

-0.22 

87.2 

2.0 

5334.3 

3.03 

2.83 

-0.20 

85.8 

3.0 

5337.4 

3.04 

2.82 

-0.22 

82.8 

3.0 

5341.1 

3.05 

2.85 

-0.20 

81.3 

4.0 

5353.1 

3.04 

2.80 

-0.24 

82.2 

3.0 

5360.6 

3.05 

2.86 

-0.19 

87.6 

4.0 

5374.9 

3.06 

2.83 

-0.22 

79.9 

3.0 

5379.3 

3.06 

2.79 

-0.27 

83.7 

3.0 

5383.0 

3.07 

2.85 

-0.21 

87.5 

4.0 

5386.8 

3.06 

2.81 

-0.25 

84.0 

4.0 

5390.6 

3.05 

2.82 

-0.23 

86.3 

4.0 

5394.3 

3.05 

2.83 

-0.22 

87.3 

4.0 

5397.4 

3.07 

2.85 

-0.21 

85.1 

4.0 

5401.2 

3.07 

2.83 

-0.24 

85.8 

4.0 

5405.5 

3.07 

2.80 

-0.27 

78.5 

4.0 

5409.3 

3.07 

2.85 

-0.22 

81.9 

4.0 

5413.0 

3.07 

2.85 

-0.22 

87.2 

4.0 

5420.5 

3.07 

2.78 

-0.28 

81.1 

4.0 

Figure  25.  Real-time  GDHED  sample  data  listing 
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(1)  GDHED  data  sample  time  (in  seconds) 

(2)  "Quick-look"  gyro  heading 

(3)  GDHED  heading 

(4)  "Quick-look"  GDHED  heading  error 

(5)  GPS  satellite  status 

d.  Test  Results  Analysis.  The  GDHED  van  tests  were  2  hours  in  duration 
and  began  after  the  GPS  set  locked  on  and  acquired  four  GPS  satellites.  A 
summary  of  heading  accuracy  determined  for  the  series  of  runs  is  shown  in 
Table  7. 

TABLE  7.  GDHED  HEADING  ACCURACY  TEST  RESULTS 


HEADING  ERROR  TOT A 

(DEGREES) 

I  STD  DEVIATION  MEAN 


TOTAL  VEHICLE  VELOCITY 
KM/ HR) 

MEAN  STD  DEVIATION 


if  OF  READINGS 


Analysis  of  the  limited  GDHED  test  results  successfully  demonstrates  that 
a  new  means  of  determining  heading  of  a  vehicle  now  exists  in  addition  to  the 
present  magnetic  and  inertial  mechanizations.  The  cumulative  GDHED  system 
mean  heading  error  of  -0.11  degrees  and  s tandard  deviation  of  1.90  degrees 
falls  short  of  the  AN/ASN-128  Doppler  heading  accuracy  requirement  of  1  degree' 
standard  deviation  (magnetic  mode). 

The  GDHED  performance  fell  short  of  expectations  (GDHED  error  analysis 
predicted  0.371-degree  standard  deviation)  mainly  because  of  the  poor  GDOP  of 
GPS,  and  uncompensated  clock  drifts  of  the  GPS  satellites  following  update 
over  Vandenberg,  AFB  and  the  time  they  are  available  at  Fort  Monmouth,  NJ. 

Even  under  the  best  conditions  (namely,  during  the  GPS  Phase  I  Field  Tests  at 
Yuma  Proving  Grounds,  AZ) ,  the  GPS  velocity  error  (50th  percentile)  was  only 
0.3  meters/second  (0.582  knots).9  Although  individual  GPS  and  Doppler  veloci¬ 
ties  were  not  recorded  during  the  van  tests,  based  upon  the  test  results  and 
error  analysis  (refer  to  Table  4),  it  is  estimated  that  GPS  velocity  errors 
were  in  the  order  of  2.0  knots.  Therefore,  it  is  expected  that  with  better 
GPS  velocity  accuracy,  and  improved  GDOP,  the  more  accurate  the  GDHED  system. 

An  additional  factor  that  added  to  the  GDHED  error,  as  indicated  in  the 
last  column  of  the  sample  GDHED  real-time  data  printout  (Figure  25),  was  the 
intermittent  loss  of  one  or  more  of  the  GPS  satellites  during  the  runs,  re¬ 
sulting  in  a  degraded  mode  of  GPS  performance. 

6.  CONCLUSIONS 

a.  An  accurate  heading  reference  for  airborne  and  ground  vehicles  can  be 
generated  by  combining  Earth-referenced  velocities  derived  from  GPS  with  Body 
referenced  velocities  derived  by  the  AN/ASN-128  Doppler. 

b.  The  accuracy  of  the  GDHED  system  as  presently  configured  (approx  -0.1° 
mean  error,  1.9°  rms  standard  deviation)  must  be  improved  to  meet  the  AN/ASN-128 
Doppler's  Heading  accuracy  requirement. 

7.  RECOMMENDATIONS 

a.  Further  van  and  flight  tests  should  be  run  to  verify  performance  of 
the  GDHED  system  under  varying  dynamic  conditions. 

b.  The  GDHED  algorithms  should  be  optimized  via  Kalman  filtering  and 
improvement  verified  via  van  and  flight  tests. 

c.  The  GDHED  algorithms  should  be  applied  to  a  Strapdown  accelerometer t 
integrated  velocity  sensor/GPS  system,  to  avoid  use  of  active  radiators  in  the 
system. 


’Final  User  Field  Test  Report  for  the  NAVSTAR  (Global  Positioning  System  Phase 
1,  GPS-GD— 025-C-US-7708,  DATA  ITEM  A01K,  General  Dynamics,  25  June  1979. 
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•  ELEVATION 

PLOTTED  IN: 
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APPENDIX  B 


A. 

B. 

C. 

D. 

E. 

F. 

G. 

H. 

I. 

J. 

K. 

L. 

M. 

N. 

O. 

P. 

Q. 

R. 

S. 

T. 


GPS  PREAMPLIFIER  CHARACTERISTICS 


SET  X  PRE-AMPLIFIER  CHARACTERISTICS 


I/O  CONNECTOR  TYPE 

NUMBER  OF  ANTENNA  INPUTS 

NUMBER  OF  SIGNAL/POWER  CONNECTORS 

NUMBER  OF  CALIBRATION  SIGNAL  INPUTS 

CENTER  FREQUENCIES 

IMPEDANCE 

VSWR  (MAX) 

CAIN  (RELATIVE  TO  3  db  BANDWIDTH) 
INPUT  SIGNAL 
BURNOUT  PROTECTION 
BANDWIDTH  (70  dB) 

BANDWIDTH  (3  dB) 

NOISE  FIGURE  (MAX) 

CALIBRATION  SIGNAL  LEVEL 

POWER  REQUIREMENTS 

GROUP  DELAY  VARIATIONS  (MAX) 

Li/L2  ISOLATION  (MIN) 

PREAMPLIFIER  1  dB  COMPRESSION  POINT 
CALIBRATION  SIGNAL  OUTPUT 
CALIBRATION  FREQUENCIES 


N 

1 

1 

1 

Li/L2 

50  OHMS 

2.5:1 

27  +  3  dB 

-50  TO  -180  dBv 

0  dBv 

+55  MHz 

+18  MHz 

3.75 

-42  dBv 

18.5  vdc  @  100  ma 

10  msec 

50  dB 

+10  dBm 

-95  dBv 

34f,  6  PRN 

274Cf  ( fc  -  5.115  MHz) 
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APPENDIX  C 


100= 

1  9+= 
£0 1  = 
£03= 

dljH- 

£10= 


££U= 


£30= 

£46= 

£50= 

£t-0= 

£70= 

£80= 

£30= 

313= 
361  = 
370= 


GDHED  PROGRAM  LISTING  (ERROR  ANALYSIS) 

PPOuRHH  LH  ( I NPUT  -  OUTPUT  .< 

HI  MENS I ON  H(7 i 
3=0 . 

L>=0  > 

m=o 

110  31  \  =10?  ioo?  iu 
UT=K 

u;  := .  57733u£7*0T 

oy=u:  : 

UX=UY 

30  £0  J= 10? 360? 10 
H1  =  .017453£9*.J 
DO  15  L= 1 ?  3 1 ?  5 
XP=.017453£9*L 
DO  10  M= 1 ?  46  ?  5 
R=. 01 7453£9*H 
N=N+1 
XPH I =0 . 

XH=H  1 

UH=  ( COS  y  XP )  J  *  ( OX )  +  i.  S I N  ( XP )  )  *  i  S I N  ( R )  )  *  ( i 

s  i;  s  i  m  y  xp  i  j  *  ( cos  y  r  :i  \  *  ( uz  i 

1.1x1=  ( COS  ( R  i  )  «UY-  ( S I N  (  R  i  i  *UZ 
UN=  (COS  (XH)  j  *UH-  (SIN  i.XH.i  i  *Uli 
Ut>  ( COS  i  XH  J  )  *011+  ( S I N  (XH  j  )  *UH 
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(_.l_IU- 

UHf-XPHi 

| 

7.H1- 

i  i]_ip=  i  -i  iv«S  1 H  ( R'j  j  -  i. l,'Z*C0S  1  R )  i 

1 

000= 

"iiui:=::F4ii 

> 

90U= 

i  wv=-simR) 

1  MMM- 

UDUZ=- i UZ^COS i R i ) 

i 

J  £00= 

UHOZ=  i.  3 1  ti  1. 1  IF'  1  *COS  ( R  i  i 

• 

i  30u= 

uhuv=i 3im::Rj*siruRt  i 

i 

1400- 

i  ,ihmx=cos  i :  :p  i 

i 

1 50o= 

UHR=  1  ( COS  i  R .i  *S I H  ( ! F-’ )  )  *UY  i  +  i  i  -S IN  i. R j  *$ J i  }.$p j  j  j 

! 

1 600= 

UHP=  1  ~3 1 H  i. :  IP  j  *u:  : (  ■+  (  I.  cos «:  XP  )  *8 1 M  ( R  j  j  *UY  J  +  (  ( COS  ( XP  )  fcf  :0S  i;  F:  i  ) 

- 

1 700= 

omjs 1 

;  300= 

: '}  =  (1.1  ( 1 .  +  (  (  (OH^OEi  -•  (UHSUII  j  j  ••••'  1  ( UH*OH  J  +  ( 011*4,0  )  j  **£0 

1 900= 

Ii=  (  (  i;  UN^OH  j  +  i:0H*OL)  i  »;»£:i 

* 

£000= 

HUH=XK«  i.  (-UE*  (VH#*2+UD#*2)  J  /  (10  j 

i 

£100  = 

HUD=XK*  (  (-UH*  (UE**2+UM**2)  )  /  (10  > 

) 

££0O= 

HUE=XK®  (  i  OMWi:0H«*£+UD*>-«£j  j i  D  i  j 

£300= 

HUH=XK®  (  (UD*  i;OE«»£+UN«*£i  j  y  (D)  1 

£400= 

no  3  1  =  1?  7 

£500= 

CHLL  BOXNO ( RND 1 ?  RMD£ ) 

£600= 

fi(I)=RNDl 

£700= 

m=H  (i  j 

£800= 

n£=H <£) 

* 

i 

£900= 

D3=H ( 3  j 

£000= 

H4=H(4i 

3100= 

D5=fl (5) 

3  £00= 

D6=H  (CO 
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APPENDIX  D 


CDHED  RTOS  VAN  TEST  SOFTWARE 


•»»*»*  »***  *  *****  *******  *********** ************* ***•*«*• 


EFEEF.EE  X  X  EEEEEEE  ccccccc 

E  X  X  E  c 

E  X  X  E  C 

EEEEEEE  XX  EEEEEEE  C 

E  X  X  E  C 

E  X  X  E  C 

EEEEEEE  X  X  EEEEEEE  CCCCCCC 


******  ****■***•»»  4  *»«*»  ********************************* 


PRO'  IE  C  T  CPS  /  DOPPLER  HYBRID  NAVIGATION  SYSTEM 


PRO •  IECT  ENGINEER  JACK  GRAY 


*  EXECUTIVE  PROGRAM  “EXEC"  * 
SYSTEM  DEFINITIONS 


DUSR  -JOBS -32. 

.ALLOWED  IN  THE  SYSTEM  270 

DUSR  CHAN=2  .NUMBER  OF  XMIT/  RCV  CHANNELS 
DUSR  TTYS—1 
DUSR  FREQ=1 

. ONLINE  ,1=10  HZ  ,2=100  HZ  , 3=10OOHZ.  310 

DUSR  SHALT =0  . SYSTEM  RESOURCES  DEPLETED  PARAMETER  320 

. 0=>  HALT;  1=>  JUMP  TO  USER  SUPPLIED  330 

; PROGRAM  WITH  ENTRY  POINT  “  SHLT"  340 

DUSR  SM0N-30  ;  SYSTEM  MONITOR  350 

i  360 

f DEVICE/OPTION  DEFINITIONS  —  370 

>  0  =>  NOT  AVAILABLE  380 

.  I  =>  DEVICE  ON  SYSTEM  390 


i  400 

DUSR  PWRFL=1  i POWER  MON I  TOR/ AUTO  RESTART 
DUSR  HSR= 1 
DUSR  HSP=1 
DUSR  PR  I NT  =  1 


DUSR  PLOT-O  .  INCREMENTAL  PLOTTER  450 
DUSR  CARD=0  ; CARD  READER  460 
DUSR  DISK-0  .DISK  (FIXED  HEAD)  470 
DUSR  A2D=0  i ANALOG  TO  DIGITAL  CONVERTER  480 
DUSR  T APE= l  , MAGNETIC  TAPE  UNIT  490 
DUSR  DCOM-0  i DATA  COMMUNICATIONS  MULTIPLEXER  500 
DUSR  OMUX-O  ; TYPE  4060  ASYNCHRONOUS  MULTIPLEXOR  510 
DUSR  IBM-0  .TYPE  4025  NOVA — SYSTEM  360  INTERFACE  520 
DUSR  DPACK-0  . MOVING  HEAD  DISK  HANDLER  530 
DUSR  SYNC-0  . TYPE  4015  SYNCHRONOUS  COMMUNICATIONS  CONTROLLER  540 


DUSR  JRB— 1 
DUSR  BUTN-1 
DUSR  RCU-t 
DUSR  SERI 0-0 
DUSR  FGATE-0 
DUSR  HDMAI-1 
DUSR  HDMA2-1 

DUSR  KW7S-1  .NUMBER  OF  KW7'S 
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PAGE 

TRAN 


SERV 

STAK. 


EXECUTIVE  FOR  REAL  TIME  OPERATION  OF  ARMY  MILITARIZED 
AIRBORNE  COMPUTER  (AN/UYK-34)  WHICH  CONTROLS  THE 
GPS /DOPPLER  SYSTEM  AND  IS  ENTIRELY  CORE-RESIDENT 


TITL 

RTOS 

'i  c. 

ENT 

IOX,  FORK. 

QUIT, 

XMIT, 

RCV,  WAIT,  PTY,  BRK 

S7«'* 

ENT 

ENGU.  DEQU 

ENT 

INTP 

IFN 

SMON 

. 

ENT 

BMON,  EMON. 

MON 

.  900 

ENDC 

■V  1  l.. 

ENT 

SYS  ,  CPTY, 

PMSK. 

QUE  , 

RTC. 

;  *:-0 

ENT 

GSTK,  QPNT, 

.  JSTK, 

JPNT 

.  940 

ENT 

CSTK,  CPNT , 

CUCB, 

CLK  . 

•JOB  .  CST 

,  950 

ENT 

CHOT,  DUCB. 

CHIN. 

BTAB, 

TTIO.  TERM 

.  9&0 

ENT 

SERV,  STAK, 

BCHR, 

TTYO. 

TTY I,  TTYO 

,  970 

ENT 

DISN.  CHRO. 

CHRI, 

PTAB, 

IOEND.  SHED 

,  980 

ENT 

IOER,  .  ONER. 

DCB1 

.  990 

.  1 02>.i 

1030 

ZREL  ,  1040 

1050 

RDX  8  j  1060 

.  1 070 

ZERO  TRANSFER  VFCTORS  1080 

10RO 

10  i ENTRY  POINT  FOR  I OX  COMMAND  1100 

FRK  i ENTRY  POINT  FOR  FORK  COMMAND  1110 

SCHD-1  ; ENTRY  POINT  FOR  QUIT  COMMAND  1120 

XM  i ENTRY  POINT  FOR  XMIT  COMMAND  1130 

RV  ; ENTRY  POINT  FOR  RCV  COMMAND  114c 

CLK  i ENTRY  POINT  FOR  WAIT  COMMAND  1150 

PR  ; ENTRY  POINT  FOR  PTY  COMMAND  1160 

BR  i ENTRY  POINT  FOR  BRk  COMMAND  1170 

PRIOR  ; INTERRUPT  PRIORITY  CONTROLLER  118u 

IOSTK  ;  JOB  STACKER  FOR  I/O  CALLS  1 190 

ENG  ; ENTRY  POINT  FOR  ENGU  COMMAND  120c 

DEG.  i  ENTRY  POINT  FOR  DEQU  COMMAND  1210 
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.define  system  instruction  cauls 


l"*=  JSR  *  TRAN 
FuRt  „  ..ISR  TRAN+1 
.  ‘I  II  T=  .JSR  <*  TRAN+2 
vMITs  JSR  |»  1  PAN*-'-: 

V=  .JSR  @  TRAN+4 
WAIT-  .JSR  S  IRAN+5 
rO«  JSR  I?  TRAN+6 
C.RT  =  .J--R  a  TRpn+7 

ENOIJ-  -JSR  0  TRAN+1 2 
DEOM  =  .JSR  ®  TRAN+1 2: 


. PACE  ZERO  SYSTEM  STORAGE  AREA  AND  PARAMTERS 

-■YS  0  MODE  SWITCH:  O-MJSER,  1=>SYSTEM 

A':^  0  •  AC 2  STORAGE  WHILE  IN  SYSTEM  MODE 

A'  -;  o  .  ACS  STORAGE  WHILE  IN  SYSTEM  MODE 

RTN  >  RETURN  ADDRESS  STORAGE  <  SYSTEM  MODE ) 

OS T HD  SCHD  .ENTRY  POINT  TO  .JOB  SCHEDULER 


RDX  8 
IFN  SMON 
3 MON  GMQN 

EMON  EMON 
MON  EMON 
ENDC 


.CONTROL  BLOCK  RELATIVE  ENTRIES  DEFINITIONS 
.TASK  CONTROL  BLOCK  <  TCG ) 


DUSR 

TL1NK- 

o 

'•  LINK  WORD 

DUSR 

TCRY- 

l 

*  CARRY  IN  BIT  0 

DUSR 

TPTY= 

1 

PRIORITY  IN  RIGHT  8  BITS 

DUSR 

TACO- 

2 

> ACCUMULATOR  STORAGE 

DUSR 

TAC 1  = 

3 

DUSR 

TAC2- 

4 

DUSR 

TAC3- 

5 

DUSR 

TPC= 

6 

PROGRAM  COUNTER 

INTERRUPTED  machine 

STATUS  STORAGE  BLOCK 

DUSR 

INMSK- 

-2 

.  NEW  MACHINE  MASK 

DUSR 

I OMSK- 

-1 

■  OLD 

DUSR 

I  CRY— 

0 

.CARRY  IN  BIT  0 

DUSR 

l  AC  0- 

i 

i ACCUMULATOR  STORAGE 

DUSR 

IAC1- 

2 

DUSR 

IAC2- 

3 

DUSR 

IAC3- 

4 

DUSR 

I  PC- 

5 

.  PROGRAM  COUNTER 

DUSR 

I DUCB- 

6 

■  DEVICE  UNIT  CONTROL  .JLOCK 

1220 
1 230 

1 240 
1250 
1 280 
127o 
1 280 
1 290 
1 300 
1310 
1  320 
1 330 
1340 
1350 
1360 
1370 
1380 
1 390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
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DEVICE  UNIT  CONTROL  BLOCK 


176" 
1 77" 
1 7a.' 


DUSR 

DTCBA= 

0 

TCB  ADDRESS 

1  T:"  ■ 

DUSR 

DFLNK= 

DTCBA 

FORWARD  LINKING 

IS'." 

DUSR 

DTEMP= 

1 

TEMPORARY  STORAGE 

IS  10 

DUSR 

DGSR= 

3 

GET /STORE  CHAR  ROUTINE 

IS  20 

DUSR 

DVCDE=* 

4 

DEVICE  CODE 

1  S3'.' 

DUSR 

DDADR= 

K 

DATA  POINTER 

ISA.  ' 

DUSR 

DCNT = 

6 

DATA  COUNT 

1 S50 

DUSR 

DQBSY* 

7 

QUEUE  BUSY  INDICATOR 

IS  60 

DUSR 

DCMOE- 

10 

CHAR  MODE  (ASCII  OR  IMAGE) 

187" 

DUSR 

DPRTY= 

1  1 

PARITY  ROUTINE  ADDR. 

1 880 

DUSR 

DNIOR= 

12 

NEXT  I/O  ROUTINE 

1890 

DUSR 

DIDBO= 

1  3 

ADDR  INTERRUPT  DATA  BLOCK  (OUTPUT) 

1 900 

D!  ISR 

DTERM* 

14 

ADDR  OF  INPUT  TERMINATORS 

1910 

DUSR 

D I D8 I = 

15 

ADDR  INTERRUPT  DATA  BLOCK  (INPUT) 

1920 

DUSR 

DERTN= 

16 

ERROR  RETURN  ADDRESS 

1930 

DUSR 

DMODE* 

17 

OPERATING  MODE 

1 940 

DUSR 

DBRK* 

20 

BREAK  ENABLED  INDICATOR 

1 950 

1960 

1970 

i CALLING  SEQUENCE  CONTROL  PARAMETERS 

1980 

1990 

DUSR 

INMBR» 

0 

2000 

DUSR 

ICNTL* 

1 

2010 

DUSR 

IDPTR* 

2 

2020 

DUSR 

I DCNT * 

3 

2030 

DUSR 

IERTN= 

4 

2040 

2050 

DUSR 

FPTY- 

0 

2060 

DUSR 

FTADR=» 

1 

2070 

2080 

DUSR 

RCHAN» 

0 

2090 

DUSR 

XCHAN- 

0 

2100 

DUSR 

XRWRD- 

0 

2110 

DUSR 

XRMES- 

CHAN 

2120 

2130 

DUSR 

BCODE* 

0 

2140 

2150 

DUSR 

PPTY- 

0 

2160 

2170 

DUSR 

WT I ME* 

0 

2180 

2190 

.  RTOS 

ERROR  FLAGS 

2^00 

2210 

OUSR 

DEVER-0 

.DEVICE  NUMBER  ERROR  <  IOX) 

2220 

DUSR 

UNER—3 

.UNIT  NUMBER  ERROR  <  IOX) 

2230 

DUSR 

WCER— 2 

. WORD  COUNT  ERROR  (  IOX) 

2240 
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,  ftftftftftftftftft**'*  ft  ft*  ftftftftftftftftftft  1HM,  **♦*■***#  *****#****#*ft#ft***ft 


22  7" 


HMIKV  Hi  INI  h  i*K 

RC  V  I  Nc  rpljl  T  1  ON  CALL 

22V  ’ 

,  y 1  irma  i 

22-'" 

prv 

23i.'i  ■ 

X  HAN  .CHANNEL 

NUMBER 

23 1  ■. 

RETURN’  ,  RETURN 

(WHEN  MESSAGE  RECEIVED) 

232*.1 

,  < ****  w 

♦  *•* *■*■♦*•■**.**•***«■.*  *  **-*-» * ftftft«.ftftftftftftftftftftftftftftft«ftft*ft.ftftftft 

224-' 

NREL 

»  23V  ■ 

,  2370 

RV 

I  “■  7  SYS 

INDICATE  SYSTEM  MODE 

238*.< 

STA  2.  AC 2 

SAVE  AC 2 

23*2(3 

STA  3,  RTN 

SAVE  AC3 

2400 

ISZ  RTN 

INCREMENT  FOR  RETURN  ADDR 

2410 

LDA  2,  RCHAN.  J 

GET  CHANNEL  # 

2420 

LDA  3.  CHAN. 

GET  #  CHANNELS  IN  SYSTEM 

2430 

MOVL#  2,  2.  SNC 

IS  CHL  #  >  OR  «  ZERO? 

2440 

SIJBZ#  3,  2.  SZC 

YES.  DOES  REQUESTED  CHANNEL  EXISTS 

2450 

•JMP  SCHD 

NO.  ERROR  O  TERMINATE  JOB 

2460 

LDA  3.  XRCON 

GET  BASE  ADDR  CHANNEL  TABLE 

2470 

ADD  2.  3 

;  HAVE  TABLE  ADDRESS 

2480 

STA  3.  TEMP 

SAVE  IT 

2490 

LDA  2,  XRWRD.  3 

GET  TABLE  WORD ( CHANNEL  STATUS) 

2500 

MOVL#  2  2  SZC 

CHANNEL  ACTIVE  WITH  A  XMIT  ? 

2510 

•JMP  +3 

. YES.  CONTINUE 

2520 

MOV  2  2  SZR 

NO.  CHANNEL  ACTIVE  WITH  A  RCV? 

2530 

JMP  SCHD 

YES. TERMINATE  NEW  JOB 

2540 

JSR  @PQBLK 

CREATE  TCB  FOR  RCV  JOB 

2550 

LDA  0.  @TEMP 

GET  TABLE  WORD  AGAIN 

2560 

MUVZL#  0,0.  SNC 

XMIT  ARRIVED? 

2570 

■JMP  RV2 

NO 

2580 

LDA  3.  TEMP 

GET  TABLE  ADDRESS 

2590 

IDA  3,  XRMES.  3 

GET  16  BIT  MESSAGE 

2600 

STA  3.  TAC3.  2 

PUT  INTO  AC3  STORAGE 

2610 

MOVZL  0.  0.  SNR 

XMIT  HELD? 

2620 

JMP  RV1+1 

NO 

2630 

•JSR  aPPSH 

YES,  ACTIVATE  RCV  JOB 

2640 

MOVZR  0,  2 

GET  ADDRESS  XMIT  JOB  TCB 

2650 

RV1 

SUB  0.  0 

i CLEAR  ACO 

2660 

STA  0.  9TEMP 

CLEAR  CHANNEL  WORD 

2670 

■JMP  SHED 

EXIT  TO  SCHEDULER (ACTIVATE  JOB) 

2680 

i  2690 

i  2700 

RV2 

STA  2.  9TEMP 

ENTER  ADDR  IN  CHANNEL  TABLE 

2710 

.JMP  SCHD 

EXIT  TO  SCHEDULER 

2720 

. 

.  2730 

CHAN 

CHAN 

NUMBER  OF  XMIT/.  RCV  CHANNELS 

2740 

i  2750 

XRCON 

CST 

BASE  ADDR  CHANNEL  STATUS  TABLE 

2760 

i  2770 

PQBLK 

OBLK 

CREATE  TCB  SUBROUTINE  ADDRESS 

2780 

PPSH 

JSPSH 

PUT  TCB  ADDR.  IN  JOB  PENDING  STACK 

2790 
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**  **  *•**  -ft-  »■***■*■**-***■****■*-***■***■*■****■***•**■***■»•*•**■**-*■**  * 


S30* 


ENTRY  POINT  FOR 

FORMAT 

XMIT 

THAN.': 

RETURN. 


XMIT  INS TRUC T I ON  CALL 
XMI  I 

■<KHAn;  ,  CHANNEL  #  <@  IMPLIES  HOLD) 

PE  T i  IRN 


i  •?•  ’  sys 

,  INDICATE  -YsTFM  MODE 

2*  1 1 

ST  A  2-  AC  2 

. SAVE  AC  2 

2  f*  2  v 

ST  A  3,  RTN 

, SAVE  AC 3 

2:/  ”o 

1ST  RTN 

. INCREMENT  FOR  RETURN  ADDR 

2*40 

L DA  3.  XCHAN.  i 

.Pin  IIP  PARAMETER  WORD 

2*50 

STA  3.  TEMP+t 

,  LAVE  I  T 

2  *'-•«’ 

MOVL  3,  3 

.  I C'NORE  HOLD  BIT 

/O’l; 

MOVZR  3.  3 

,  BY  SHIFT I NO  IT  OUT 

2**0 

LDA  2,  CHAN 

, OET  #  CHANNELS  IN  SYSTEM 

2**-  ■ 

•SUEZ#  2.  3,  SZC 

■  DOES  REQUESTED  CHANNEL  EXIST'' 

3<jOO 

JMP  SCHD 

, NO.  ERROR  =>  TERMINATE  JOB 

30 1 0 

LDA  2.  XRCON 

, OET  BASE  ADDR  CHANNEL  TABLE 

3020 

ADD  2,  3 

1  HAVE  TABLE  ADDR 

2030 

ST  A  3,  TEMP 

.SAVE  IT 

3040 

JSR  @PPBLK 

; CREATE  QUEUE  ENTRY  BLOCK 

3050 

LDA  3.STEMP 

(PICKUP  CHANNEL  WORD 

3060 

MOVZL#  3.  3.  SZC 

, ANOTHER  XMIT  THERE? 

3070 

■JMP  SHED 

, YES,  QUICK  EXIT 

3080 

MOV  3,3.  SNR 

(NO,  A  RCV  WAITING? 

3090 

JMP  XMI 

i  NO 

3 1 00 

LDA  0,  TACO,  2 

, YES,  GET  MESSAGE  (IE  ACO) 

3110 

STA  0,  TAC3.  3 

.STORE  AS  AC3  IN  RCV  BLOCK 

3 1 20 

MOV  3,  1 

(SAVE  ADDR  RCV  BLOCK  IN  AC1 

3 1 30 

■JSR  JSPSH 

■ENTER  INTO  PENDING  STACK 

3 1 40 

MOV  1 ,  2 

, GET  ADDR  RCV  BLOCK  BACI  IN  AC  2 

3150 

•JMP  RV1 

i CLEAR  CHANNEL  WORD 

3 1 60 

■EXIT  TO  SCHEDULER* ACTIVATE  JOB) 

3170 
;  3180 

SUB  1 , 1 

.CLEAR  AC-1 

31*0 

LDA  0,  TEMP+1 

PICKUP  PARAMETER  WORD 

3300 

Mi'VZL#  0,0,  SZC 

,  SUSPEND  XMIT  JOB? 

32 1 O 

MOV  2,  1 

i  YES 

3220 

MOVZL  1,  1 

. NO.  SET  BIT  0 

3230 

MOVOR  1,  1 

3240 

LDA  3.  TEMP 

, RESTORE  AC3  TO  CHANNEL  TABLE 

325o 

STA  1,  XRWRD,  3 

, STORE  IN  CHANNEL  TABLE 

3260 

LDA  1 ,  TACO,  2 

•  GET  MESSAGE  < IE  ACO) 

3270 

STA  l , XRMES. 3 

,  SAVE  IN  MESSAGE  TABLE 

3280 

MOVZL#  0,0,  SZC 

, SUSPEND  XMIT  JOB? 

32*0 

■JMP  SCHD 

, YES. EXIT  TO  SCHEDULER 

3300 

■JMP  SHED 

(NO.  EXIT  ”  "  (ACTIVATE  JOB) 

33 1 0 

I 

[ 

i 


I* 

I 


i 

j 

( 

| 

] 
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*******************************************************  3320 

3330 

ENTRY  POINT  FOR  PTY  INSTRUCTION  CALL  334u 

FORMAT  3350 

PTY  3360 

'priority:  , new  priority  3370 

•-'.RETURN:  •  3380 

3390 

*******************************************************  3400 

i  34  1 0 

PR  ISZ  SYS  ,  INDICATE  SYSTEM  MODE  3420 

STA  2.  AC 2  .SAVE  AC2  3430 

INC  3,  3  . INCREMENT  RETURN  ADDRESS  3440 

STA  3.  RTN  SAVE  IT  3450 

LDA  2. PPTY-1.3  .  SET  NEW  PRIORITY  3460 

•  IMP  FRK 1  ,  GO  HANDLE  3470 

i  3480 

********** *********************************************  3490 

3500) 

ENTRY  POINT  FOR  FORK  SYSTEM  CALL  3510 

FORMAT  3520 

FORK  3530 

<PR1GRITY>  .NEW  TASK  PRIORITY  <0-N0  CHANGE)  3540 

OADDRESS}  , ADDRESS  NEW  TASK  3550 

<RETURN>  3560 

3570 

**•*••••****•••*••••••*••**••*••«*«*••*•••**••*••*•*•*•  3580 

;  3590 

FRK  ISZ  SYS  ; INDICATE  SYSTEM  MODE  3600 

STA  2.  AC 2  .SAVE  AC2  3610 

LDA  2,  CPTY  .PICKUP  CURRENT  TASK  PRIORITY  3620 

STA  2,  TEMP  .SAVE  IT  3630 

LDA  2.FPTY.3  .GET  NEW  TASK  PRIORITY  3640 

MOV  2.  2.  SZR  . NEW  PRIORITY  ZERO^  3650 

STA  2.  CPTY  .NO.  USE  IT  3660 

INC  3.  3  i  INCREMENT  AC3  3670 

LDA  2.  FTADR-1 . 3  .  GET  NEW  TASK  ADDRESS  3680 

STA  2,  RTN  , SET  AS  RETURN  ADDRESS  3690 

INC  3.  3  i  INCREMENT  AC3  3700 

STA  3.  TEMP+1  ;  SAVE  IT  (OLD  TASK  RETURN  ADDRESS)  3710 

.JSR  QBLK  ,  CREATE  QUEUE  BLOCK  .  3720 

J3R  JSPSH  ,  PUT  IN  JOB  PENDING  STACK  3730 

LDA  2. TEMP* 1  .GET  OLD  TASK  RETURN  ADDRESS  3740 

STA  2.  RTN  .  SET  AS  RETURN  3750 

LDA  2. TEMP  .PICKUP  OLD  TASK  PRIORITY  3760 

FRK  1  STA  2.  CPTY  C3ET  IT  3770 

■JSR  QBLK  ,  CREATE  QUEUE  BLOCK  3780 

JMP  SHED  ; EXIT  TO  SCHEDULER (ACTIVATE  JOB)  3790 

i  3800 

i  38 1 0 

TEMP  BLK  2  ; TEMPORARY  STORAGE  USED  BY  SYSTEM  3820 

,  META- INSTRUCT I ON  SERVICING  PROGRAMS  3830 
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384c. 


•JOB  SCHEDULER  FOR  THE  REAL-TIME  OPERATING  SYSTEM 

♦  ♦■ft-**-*-*-*-**-****************'*#'*'***'***-*****#**********'*** 


ISZ  SYS 
ill  HD  I NTOS 

LDA  2,  S  JPNT 
MOV  2.  2.  SNR 
..IMP  SHD3 
INTEN 
OSZ  .JPNT 


,  INDICATE  SYSTEM  MODE 
,  DISABLE  INTERRUPT  MOMENTARILY 
.  CHECK  JOB  PENDING  STACK 
•  STACK  EMPTY '■ 

,  YES  ACTIVATE  -JOB 
•NO  ENABLE  INTERRUPT 
. DECREMENT  POINTER 


+++*■***■*+■+■+•*+-**  +  -»■*■*-*+•***■**-*-#*+-+♦»+■#*-*♦■*-****++■»•  +  **#*♦+♦+ 

ENTRY  POINT  TO  SCHEDULER  WITH  TCB  ADDRESS  TO  BE 
ACTIVATED  ALREADY  IN  AC2 

»**•*«•*•*•*****•••••**•*****•*****»***•*«.********•#**• 


SHED:  ST  A  2.  TEMP 

LDA  0.  TPTY,  2 
MOVZL  0.  0 
LDA  3.  SHCON 


i SAVE  ADDRESS 
•GET  C ( ENTRY+1 ) 

, C(AC0)»2*PRIClRITY 

.GET  ADDR  POINT  TO  TOP  OF  QUEUE 


SHD 1 :  LDA  2.  0.  3 

MOV  2.  2.  SNR 
JMP  SHD2 
LDA  1,  TPTY,  2 
MOVZL  1 .  1 
ADC  0.  1 
MOVZL  1.1,  SNC 
JMP  SHD2 
MOV  2,  3 
•JMP  SHD1 


: GET  NEXT  ENTRY  ADDRESS 
.  END  OF  QUEUE'* 

;  YES.  MAKE  ENTRY 
:  NO.  GET  C<  ENTRY+1  > 

.  C<AC1 >»2*PRI0RITY 

, FOUND  SPOT? 

,  YES  MAKE  ENTRY 

i  NO  UPDATE  QUEUE  POINTER 
i  CONTINUE 


SHD2:  LDA  1 ,  TEMP 

STA  2,  @TEMP 
ST A  1.TLINK.3 
JMP  SCHD 


PICKUP  ADDR  NEW  QUEUE  ENTRY 
SET  FWD  LINK 

FWD  LINK  OF  PREVIOUS  RESET 
GO  BACK  FOR  ANY  MORE 


3940 


4000 

4010 

4020 

4030 

4040 

4050 
4060 
4070 
4080 
4090 
4 1 00 
4110 
4120 
4130 
4140 
4150 
4 1 60 
4170 
4180 
4190 
4200 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
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>»■•»**  I  "**«»**»» *****  *  *»*********-***********•***#*■**■**** 


-.1  nvATF  tnr-  '.F  HIGHEST  PRIORITY 

;-Hp  ?  < .  OH  2.PFHCQN  GET  ADDR  TOP  ENTRY  IN  QUEUE 

movz  2.  o.  snr  .queue  empty'' 

•  imp  SHD4  .  YES  SET  UP  NULL  JOB 

it*-'  *  **************  **„*»*»***************************** 

MONITOR  WHO  HAS  CONTROL  OF  THE  SYSTEM 


***  *  ******  ******  **«******************■*****■<•**********# 


I FN  SMON 
SUE'  3. 

STA  3,  @  MON 

DSZ  MON 
LDA  '?.  TPC.  2 
STA  3.  3.  MON 
DSZ  MON 
ADC  0. 0 
STA  0,  @  MON 
LDA  0.  MON 
LDA  l .  BMON 
SUEZ#  1,0.  SNC 
LDA  0.  EMON 
STA  0.  MON 
ENDC 

LDA  O.TLINK,  2 
STA  O.  9SHC0N 
LDA  0.  TPTY.  2 
MOVZL  0.  0 
MOVZR  0,  0 
STA  0,  CPTY 
LDA  0,  TACO.  2 
LDA  1,  T AC  1 , 2 
LDA  3  TPC  2 
STA  3  TEMP 
LDA  3  TPTY  2 
MOVL  3  3 
SIJBC  3  3 
STA  3  SYS 
ISZ  QPNT 
STA  2  @  OPNT 
LDA  3  TAC3  2 
LDA  2  TAC2  2 
INTEN 
■JMP  0TEMP 


.NO  GET  FWD  LINK 
; RESET  POINTER 
.PICKUP  PRIORITY  &  CARRY 
.  IGNORE  CARRY  BIT  FOR  NOW 

.  SET  CURRENT  PRIORITY 
. RESTORE  ACO 
. RESORE  AC1 

.PICKUP  PROGRAM  COUNTER 
■SAVE  IT 
i GET  CARRY 
.RESTORE  IT 
. CLEAR  AC3 

*  RESET  TO  USER  MODE 
, PUSH  TCB  ADDRESS 

, BACK  ON  QUEUE  STACK 
. RESTORE  AC3 
i RESTORE  AC2 

•  RE-ENABLE  THE  INTERRUPT 
i EXIT  TO  JOB 


42'ti , 

43oo 

4 1 1 0 

4  ■  2 1 ' 

43  3'.' 

4  34'  ’ 

4  35' 

4360 

437': 

4  3:30 

4390 

4400 

44 1 0 

4420 

4430 

4440 

4450 

4460 

4470, 

4480 

4490 

4500 

4510 

4520 

4530 

4540 

4550 

4560 

4570 

4580 

4590 

4600 

4610 

4620 

4630 

4640 

4650 

4660 

4670 

4680 

4690 

4700 

4710 

4720 

4730 

4740 

4750 

4760 

4770 

4780 

4790 

4800 
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.  v-v<»*******  *-*-»*»•»-**-*  *******  *****■**■#♦*#■■*•*•* **■»**♦♦***■**•*** 

48 1U 

4820 

.<i'rTVATP  F>  NULL 

ii  »Q: 

4;::M  . 

SHi'ul 

■-.  rM  *  .  n 

■SET  LOCATION  0  =  M 

4.f  7 1  j 

:  TA  2-  :  'x 

, RESET  TO  USER  MODE 

488'  • 

INTEN 

,  TURN  INTERRUPT  ON 

4 •  • 

■  IMF  0 

.  VMP  TO  THE  NULL  TASK 

.  r  A  t  \.  =  O/  .IMF-  0 

4°  i 

=.H«:  ON 

CUE 

.ADDRESS  VECTOR 

4920 

* 

i  4‘^3U 

,  #->44*4*»iHHHHHHHHH»4**-)H><HHHJ-»******#*-»*«+**+#»-*****-»**'***** 

ROUTINE  TO  POP 

ADDRESS  FROM  .JOB  QUEUE  STACK 

■CALLING  SEQUENCE 

.JSR  QSPOP 
'.RETURNS 

. TCB  ADDRESS  IN  AC2 

.  *-** *•* **-****■*■*-*•**■**■**«■* »**««4««*«»***«*4«««tt«*«***«*««*«»« 

,  4960 

QSPOP 

INTDS 

.DISABLE  INTERRUPT  MOMENTARILY 

4970 

LDA  2.  @  OPNT 

■PICKUP  TCB  ADDRESS  FROM  STACK 

4980 

MOV  2.  2,  SZR 

.  F  AODR  =0  =>  NO  MORE  TCB  S  AVAILAEiLE 

4*90 

■JMP  +.3 

; LEGAL  TCB  ADDRESS  FOUND 

5000 

IFE  SHALT 

i  5010 

HALT 

.NO  TCB  S  AVAILABLE.  ERfiOR  HALT 

5020 

■JMP  - 1 

i  5030 

ENDC 

i  5040 

IFN  SHALT 

.NO  TCB' S  AVAILABLE  ON  STACK 

5050 

EXTN  SHLT 

.  MUST  BRANCH  TO  USER 

506-0 

■JMP  @  +1 

.SUPPLIED  ROUTINE  TO 

5070 

SHLT 

. HANDLE  END  OF  TCB  TABLES 

50 3o 

ENDC. 

,  5u90 

,  5 1 00 

DSZ  QPNT 

; NO,  DECREMENT  STACK  POINTER 

5 1 1  <:• 

INTEN 

.RE-ENABLE  THE  INTERRUPT 

5 1 20 

..IMP  0.  3 

.  RETURN 

5130 

,  ■ 

i-'PNT 

0 

.STACK  POINTER 

5150 

62 


t 


******************************************************* 
ROUT  inf:  to  push  address  into  job  pending  stack 

N  B  NO  OVERFLOW  CHECK  REQUIRED 

CAI  IING  SEQUENCE: 

LDA  2, <ADDK>  - ADDR  IN  AC 2 
JSR  JSPSH 

<return:> 

JSPSH  IS  RE-ENTRANT 

*****#**#**•»•■»•■**  „  tr*******##-#  it  i|  tHHt#**»**tHHt*******»  iHHHHHt 


5  ISO 


0190 
0200 
5-  lu 


i 


5220 


5240 


5-60 
527  0 
5  /on 

.  ■'  t.i 
ooUtl 


i-k'.h  INTDS 

TS7  .11  I-!' 

INTEN 

ST  A  #  •  IPN  ( 

JMP  0.  : 


,  HI S Hi:l  E  IN  I  I  RRUPT  MOMENUTRUy' 
,  IN!  Rk  (It NT  POINTER 
RT-hNuBI  E  I  (•!  I  T  KRUPT 
■  :  M  it-  i  i)  iDRF.  SS 
•  E  X  i  i 


i5 


) 


...IP  NT  0 


PR  NO  ING  STACK  POINTER 


vlO 


IM>  » 't  IHHk#*###  IHHm'  »**#**##**###***#**«  ***■**###**###***#**  i.  V« 

i  5420 

,  ROUTINE  IO  PUSH  ADDRESS  INTO  QUEUE  STACK  :  4  ,0 

,  54  40 

, PALLING  SEQUENT F  5450 

,  (IDENTICAL  TO  JSPSH)  .460 

i  5470 

,  **##*##**#*****  »  kHHHHUHHUHHUHHUHHMUUHHUHHHUMHMMMMMHUUHUf  5480 

i  5491.) 

QSF'SH :  INTDS  ;  DISABLE  INTERRUPT  MOMENTARILY  5500 

ISZ  QPNT  .  INCREMENT  POINTER  55 1 o 

INTEN  >  RE-ENABL.E  INTERRUPT  5520 

STA  2,  @  Of-' NT  ;  STORE  ADDRESS  5530 

JMP  0,3  i  EX  IT  .  5540 

,  5550 

i  5560 

;  I OX  WORD  COUNT  ERROR  5570 

;  5580 

WCER  JSR  IOER  ,  5590 

WCER  ; WORD  COUNT  WAS  NEGATIVE  5600 


63 


56 ' ■ 
5  c- 4' 
56?' 

5 1-~' 
568' 


574 


58o< 

58 1  V 

5820 

583o 

584 U 

5850 

5860 

587 5' 

5880 

5890 

5900 


5910 


,  **■'*•»*-****»»****»■***■*•**** **-*****-****■*■»*■***##■***■»#■*#**##*  5920 

i  5 -'30 

,  A  OENERAL  NON  REENTRANT  ROUTINE  TO  CREATE  A  queue  BLOCK  5940 

5950 

USED  ONLY  EY  SYSTEM  CALLS  'NO  REENTRANCY  REQUIRED!  5960 

5970 

CALLING  SEQUENCE  5980 

(AC2.  ACS,  RETURN  ADDR  STORED  IN  AC2.-AC3.  RTN.  )  5990 

,  -JSR  QBLK  6000 

<RETURN>  . ( AC2!=ADDR  OF  CREATED  QUEUE  ELK  6010 

6020 

-PRIORITY  SET  EY  C<  CPTY;  8080 

604 

.  *-***■»*■*** »-»*-» <•■*■*•****■**■***•»-*-» *-»*■**■*•»•*•****■»*■»■***■*•*■*■***■**■»  6050 


64 


OTA  ?.  ORTM 

hVE  RETURN  AUDREY 

r 

1 

1  ■  K -«'*R 

.  i-’ET  OijEUE  SLOCK 

/.*■*  >‘ 

1 

r,.  •  .  t„i  ... 

.  ENTER  AO*  IN  UUFUE  F.L 111 . 1 

V 

:  T  ►«  l  .  TVi*  1 

.ENTER  AO \  iN  OUEUE  FLOCK 

:■  p- 

[ 

Mi :»f i  /  TOP-  U  L  MA  I N  ?.  V  STEM  f  AU .  S 

/;•  \  1  ' 

P[n:’l  IJl.K-f  1  -■ 

■-.  UDRH'-C  OF  T i  .p  RF.OUE  0  1  OR 

61  - 

i  -  in  i-'fi  r«- 

Pi  Nr-.  WHi  i  IT  Wil.L  i/O  ITT 

•-  i 

| 

r  1 1  tll'M 

1 

t  1  >A  i  K  r  l 

,  :  j  7  . 

T;%  ..  Mf:M 

■:  1  ■ 

1 

f> :  MMm 

« 

( 

l  Oh  h  l‘N 

.  6  1  >:< 

1  • 

-11. IN 

,  6 1  '*’* 

r  •  ?  L  Mi:*r  i 

i  t. 

HOC  O.  0 

.  62  i 

r a  o  >*  non 

i  .v-22 

l  C1  A  0.  NON 

.  6l-  < 

i_OA  l,  BMON 

-  *24 1‘. 

ojb:»  i  o.  snc 

i  62?»‘> 

LDA  0.  EMON 

»  62**  • 

TA  Q,  MON 

.  62 7 o 

,  ' 

1.  DA  1 ,  TAP  \  ,  l 

i  628*  ■ 

ENDC 

,  629  J 

•  V«i 

SUB  0  0 

i ZERO  FORWARD  LINK  OF  TCB 

6300 

fa 

-  j 

:TA  0  TLINK  0 

.BEING  CREATED 

-T1 

LDA  ....  rPTY 

.PICKUP  CURRENT  PRIORITY 

632 u 

f  ■ 

LDA  I :,P  ST¬ 

.  i/E  r  PRIORITY  MAST 

63  j.u 

AND 

.PRIORITY  IN  CORRECT  RANGE 

65  4  < » 

j 

A  DDR  i.l.  o 

; SAVE  CARRY  IN  PRIORITY  WORD 

6350 

OTA  u,  TRTY,  2 

.ENTER  IT  IN  QUEUE  BLOCK 

6-560 

LDA  u ,  AC2 

.  OE  T  AC  2 

637*.- 

OTA  0,  T AC  2.  2 

•  .ENTER  IN  QUEUE  BLOCK 

6-54  0 

LDA  0.  AC 3 

i  GET  ACo 

6390 

OTA  A.  TACS.  2 

, ENTER  IN  QUEUE  BLOCK 

6400 

LDA  0.  RTN 

. GET  RETURN  ADDRESS 

6410 

OTA  0.  TPC,  2 

.  ENTER  IN  QUEUE  BLOCK 

6420 

, 

LDA  0,  TACO,  2 

.  RESTORE  ORIGINAL  ACO 

64:50 

..IMP  »  QRTN 

.  EXIT 

6440 

.  64l50 

0 

•SUBROUTINE  RETURN  ADDRESS 

c-46u 

07  T 

. 8  B I T  MASK 

64  70 

^♦fr-***--***-*-*  **•»***«*«**•*««  **■*-*■*-**■#*-**•«•-»■-******#•****#**** 


64  ou 

64c'0 
65 0< 


ENTRY  POINT 

rOfti-nr 

IOX 

:dev: 

"control: 

■  RO  INTER’. 

.count: 

:error: 

■return- 

60  i« 

*■4**  +<*■•*■***  4*  *■■»*  4  •<*•  4  *  4  »  4  ***•»*  4  4*  *4 4*  ***■■***•* 4 ■»*♦**  *■*■»*##  >..620 

6630 


lil  SYS. 

,  INDICATE  SYSTEM  MODE 

66 4 U 

ST  A  2.  AC  2 

. SAVE  AC2 

6  o5i. 

LDA  2.  C5 

,  OET  CONSTANT  +5 

6660 

ADD  3,  2 

,  CALCULATE  NORMAL  ftETURN  ADDR 

667* 1 

GTA  2,  RTN 

1  ENTER  RETURN  PC 

6680 

3TA  J.  AC  3 

. SAVE  AC  3 

66  V*  1 

..13ft  DDL. 

■  CREATE  QUEUE  BLOCK 

67*  A» 

LDA  3.  AC  3 

. RESTORE  AC 3 

6710 

LDA  1, I  NMBR,  3 

. OET  DEV  I CE  NUMBER 

6720 

LDA  0.  I  DC  NT,  3 

, GET  DATA  COUNT 

6730 

MOVL  0,  0.  SZC 

.  COUNT  .  =0? 

6740 

JMP  UCEft 

.NEGATIVE  «!>  WORD  COUNT  ERROR 

6  7  50 

LDA  0,  ICNTL,  3 

, GET  DEVICE  CONTROL  WORD 

6760 

LDA  3,  DEV 

, GET  NUMBER  OF  DEVICES  IN  SYSTEM 

6770 

SUEZ#  3.  1  SZC 

.A  LEGAL  DEVICE  NUMBER? 

6780 

■  JMP  OVER 

, NO,  ERROR  =>  TERMINATE  JOB 

6790 

LDA  3,  IOC  ON 

. GET  TOP  ADDRESS  DEVICE  TABLE 

6800 

ADD  1 ,  3 

; HAVE  TRANSFER  ADDRESS  POINTER 

68 1 0 

SUB  1 .  1 

.CLEAR  AC  1 

6820 

STA  1.TLINK.2 

■CLEAR  FWD  LINK  OF  QUEUE  ENTRY 

6830 

LDA  3.  0.  3 

. TRANSFER  TO  DEVICE 

6840 

JMP  1 , 3 

INITIALIZATION  ROUTINE 

6850 

FOR  IOX  INSTRUCTION  CALL 


DEV I CE  NUMBER  t I NMBR ) 

DEVICE  CONTROL  WORD  < ICNTL > 

.DATA  POINTER  UDPTR) 

, DATA  C  OUNT 
, ERROR  RETURN 
NOR AML  RETURN 


( I DCNT ) 
< I ERIN) 


605*  ‘ 

6  c.  00 


or. 


m 


t;  Mu*! 


......  f  .  •  v»-  ►■‘>  »,•  >.  iH 

HN  I P  i  POINT  POP  OKI  iNvTWiul  H  '  Ai.  I 

BP- 

RE iMKN 


-:  ft  r  CUDF  OF  SPP.A*  CHARhC  TFP 
return  HERE  IF  RREA1  OCCUR 


SR  1 


ER2 


BR  3 


[:■/'  s  '' r- 

•  I NO l TATE  SYSTEM  MODE 

:ta  ;.  e.<:. 

-AVE  AO 2 

-,TA  3,  R  1  N 

.  '■  A VE  AL-  3 

7C"' 

ISZ  RTN 

.  INCREMENT  FOR  RETURN  ADDRESS 

701 

LDA  2.  BCODE.  2 

, OET  NEW  BREAK  CHARACTER 

70- 

LDA  3.  BT  HR 

■  C-ET  OLD  BREAK  CHAR. 

7 .  ..  . 

ST  A  -,  Bi-HR 

. SAVE  NEW  BREAK  CHAR 

>  \i‘4< 

M07L  3,  3.  SZC 

.WAS  BREAK  REQUEST  ACTIVE? 

7  OF  ■  • 

JHP  BP  I 

;  Fin,  SETUP  NEW  REQUEST 

70ci  • 

MOVL  2  2  SZC 

.  ZES.  CHECK  IF  NEW  BREAK  CHAR  -VE 

707'. 

ADCZL  3  3  $M» 

, YES,  GENERATE  -2 

70S'. 

ADC  3  3 

. NO.  GENERATE  -1 

70S" 

LDA  2  BJOB 

■  GET  OLD  BREAK.  -JOB  TCB 

7 1 00 

3TA  3  T AC  3  2 

. SET  RETURN  AC 3 

71  10 

J3R  JSFSH 

.ACTIVATE  OLD  BREAK  .JOB 

7120 

JS.R  QBLK 

. CREATE  QUEUE  BLOCK  FOR  BRK  JOB 

713.' 

LDA  3,  BOHR 

.  C-ET  NEW  BREAK  CHARACTER 

714i 

MOVL  3.  3,  SZC 

.  A  NEW  BREAK  REQUEST'’ 

715. 

..IMP  BR2 

. NO. IT  WAS  A  TERMINATE  REQUEST 

716. 

ST  A  2,  B.JOB 

. YES. SAVE  BRK  TCB  ADDR 

717' 

•JMF'  80'SCHD 

EXIT  TO  SCHEDULER 

7 1  Sfi 

-*  1  O,' , 

LDA  3  BR3 

. SET  ACS  =  -3 

.  1  -V 

720'' 

STA  3  TAC3  2 

,  SET  RETURN  ACS 

721" 

JMP  'JOSHED 

. SCHEDULE  TASK  IMMEDIATELY 

722> 

.  7  *v  ~,i 

— 

724- 

-«K  -k-  ■>}-  ■>>  ±  it  it 


<K  4  <! 


72c 


‘•Hlr  ’»  Pm  i  r  i  f 

•  i..  r  1 

r  , ■  •'  -  1.'  fi  ■  .i  i 

7  ■ 

’■"r'Mh  i 

,-.  j. 

■h T  ■ 

.  i'LUCI  INM.RWAI  i  mi  IN  t 

7  4  • 

>.*£  n  iRT< 

P:(?  TORN 

-»**■«■*■*■*  -M.  * 

y:.-vv 

•'!  (  I'S’ 

-..VS 

■  lNr>K.A  IE  SYSTEM  MODF 

jV”. 

3T  A 

A*’  2 

.  SAVE  AC  2 

/  ,Vv 

i>*:. 

,  INCREMENT  3  FOE  EE  TORN 

"  38«.» 

STA 

RTN 

.  SAVE  l T 

7: 

1  Oh 

WTIME-i . 

$  . PICMJP  COUNT  FAFAMETFR 

7400 

TA 

1-5,  CVAR+l 

.  SAVE  IT 

’4m 

•J-.R 

mu 

.  CREATE  QUEUE  BLOCK  ENTRY 

^420 

LDA 

0  CVAR+l 

-PICKUP  COUNT 

■'4  'JO 

MOV 

0  0  SNR 

-  IS  IT  =  ZERO  ■’ 

_744‘.» 

OMP 

GQSHED 

. YES,  00  AND  RESCHEDULE 

7450 

I  NT  [IS 

i DISABLE  INTERRUPT  MOMENTARILY 

7460 

LDA 

'3.  <»  CENT 

i PICKUP  CLOCK  QUEUE  BLOCK 

7470 

INTEN 

, RE-ENABLE  INTERRUPT 

748u 

BSZ 

CENT 

i DECREMENT  POINTER 

74*0 

ST  A 

2 1  2 »  3 

. ENTER  JOB  QUEUE  BLOCK  ADDR 

7500 

STA 

3.  C  VAR 

■  SAVE  ADDR  NEW  QUEUE  BLOCK 

7510 

ISZ 

CUC 13 3 

, SET  CLOCK  QUEUE  BUSY  SWITCH 

752'.- 

LDA 

3,  CQUEU 

.GET  ADDR  POINT  TO  TOP  OF  QUEUE 

7530 
,  7540 

FIND  PLACE 

IN  CLOCt 

QUEUE 

7550 
i  7560 

CLK1  LDA 

2.  0.  3 

.GET  NEXT  ENTRY  ADDR 

7570 

MOV 

2,  2.  SNR 

; END  OF  QUEUE? 

7580 

IMP 

CLK2+3 

,  YES.  MAK  E  ENTRY 

759  0 

LDA 

1,1.2 

•NO.  GET  COUNT  OF  THIS  ENTRY 

7600 

SLID 

1 .  0 

•SUBTRACT  FROM  REMAINING  TOTAL 

7610 

MOV ZL#  0.0.  S 

ZC 

;  FOUND  SPOT"' 

7620 

JMP 

eu  2 

,  YES.  MAKE  ENTRY 

7630 

MOV 
■  IMP 

C  U  1 

■NO,  UPDATE  AND  CONTINUE 

7 '.*'40 
i  "650 

f)8 


i 


.  MAKE  SU  r  T AE(  E  ENTRY 

'.1.1  2  LOO  l 

",  I 

i  r  A  1.1.2 
LDA  1 . CVAR 
ETA  2.  2CVAP 
ETA  1.0.3 
MOV  1 . 3 
ETA  O.  1 .  3 
-;|.IE  0.0 
ETA  0.  CUCB* 
LDA  0,  CUCB* 

LDA  1 .  cue  c- 

MOV  1.1.  SZR 
■JMP  eaSCHD 
DOAS  O. PTC 
IEZ  CUCB 
.JMP  80SCHD 
CVAR  BLK  2 

OEHED  SHED 

COUEV  PTC 


IN  CLOCK  QUEUE 


■,  RESTORE  COUNT  TO  CORRECT  VALUE 
.  UPDATE  COUNT  FOR  NEXT  ENTRY 
.NEXT  ENTRY'S  COUNT  RESET 
,  P I CKUP  ADDR  NEW  QUEUE  ENTRY 
i  -ET  FWD  LINK  _ 

.RESET  FWD  LNK  OF  PREVIOUS  ENTRY 

, GET  NEW  QUEUE  ENTRY  ADDR  IN  ACo 
,  ';ET  ITS  COUNT  INTERVAL 
; r LEAR  ACO 

.  INDICATE  CLOCK.  QUEUE  AVAILABLE 
p i cl  UP  CLOCK  FREQUENCY 
.PICKUP  CLOCK  ACTIVE  SWITCH 
. CLOCK  active^ 

, YES.  EXIT  TO  SCHEDULER 
,  NO.  START  IT  UP 
, INDICATE  CLOCK  ACTIVE 
.EXIT  TO  SCHEDULER 
; TEMPORARY  STORAGE 
; ADDRESS  TO  RESCHEDULE 
.ADDR  POINTER  TO  CLOCK  QUEUE 


»■»««*****•****■»**************** 

.  »*»*****■»**»***'**'*'* 

REAL-TIME  CLOCK  INTERRUPT  SERVICE  ROUTINE 

__ .*********■*************** 
„*******.**+****<"********” 


CK.SER ' 


PTC 


.  isp  PRIOR 
37 
0 
0 
0 
0 
0 


o 

c 

0 

N10*.  RTC 
i  *E;  z  cues*  i 
LDA  3.  CUCD+ 3 
MOV  3.  3.  SIR 
..IMP  CY31 
•_ISR  .  CK  S3 
..IMP  CKS4 


, pe-ARRANGE  PRIORITIES 
.NEW  INTERRUPT  MASK 
iOLD  MASK  STORAGE 
. CARRY 

,  ACO 


R-ST  ENTRY  CLOCK  QUEUE  POINTER 

ART**P  CLOCK  AGAIN 

CREMENT  OVERCOUNT  WORD 

TCH  QUEUE  AVAILABILITY  SWITCH 

IE  HE  AVAILABLE'1 

I,  GO  INTO  OVERCOUNT 

:rR  INTERVAL  CNT  < AC2»C (  RTC. 

i  ACTIVATE  -JOB 


76. 

76  7  0 
7680 
7t11 
770'.’ 
771- 
773' 
773'. 
7740 
7  7  S'.' 
7760 
7770 
778> 
7T-": 
73C" 
781" 
7820 
7830 
7840 
785" 
7860 
7870 
7880 
7890 
7900 


7910 
7920 
7930 
7940 
7'r"50 
79c.O 
7970 
7980 
79'-'l.) 
8000 
8010 
8020 
3030 
3040 
8050 
8060 
So  7>. i 
•3030 
$090 
S  V  00 
8110 
8120 
31  3m 
3140 
8150 


69 


5 


[ 

I 


o  ■  i 

LDA  5 .  <  i 

8ER^j 

■RECALL  ORIGINAL  priority  WORD 

OOBC  ?,  i 

PU 

RESTORE  OLD  MASK.  INTDS 

—  FT1/  RT  C 

■ RTC  INTERRUPTED  AGAIN’ 

-»p  .  \  ' 

YFf  -f—  v.'IfE  Til  ,i  Fgi.nFST 

.  'rt  „  ■  i  NHL* 

■MO  D I  •;  Ml--  lillr.PRI.IK  I 

Mt  ..  .+. 

.BRANCH  TTi  [it  FRljGFU.M 

t  :.n+4 

■  FES  T>  .HE  AC  1 ,  At'  ?. ,  o  lrry  ,  t- r 

♦  O 

iEb:+i 

■  t-'E  T  HEW  INTERRUPT  MASK 

L-Mf;:r  i 

pi.i 

.RESTORE  MAST  HARDWARE,  INTEN 

IMF  RT*' 

*  l 

■SERVICE  NEW  RTC  INTERRUPT 

f  K  33 

DSt  1.2 

DEC R  INTERVAL  CNTR 

■JMP  >2 

■  NOT  ZERO  CHECK  FOR  OVERCOUNT 

-IMP  0.  3 

. ZERO,  GO  ACTIVATE  JOB 

08 3  CUC 

B+i 

. DECREMENT  OVERCOUNT 

-IMP  -4 

•  I  FFP  GOING  AS  OFTEN  AS  PE"  D 

JMP  1 . 3 

NO  10  BS  TO  BE  ACTIVATED 

.  REAL 

TIME  CLOi: 

K  DEVIL 

E  CONTROL  BLOCK 

r.ijr  g 

•  ) 

t  o=xlock:  inactive,  non  o=:  active 

0 

■  ' t=2 normal,  otherwise  overcount 

FREQbl 

.CLOCK  FREQUENCY  (0,1.2. 3) 

0 

,  0  =  :  QUEUE  AVAILABLE,  1='.  QUEUE  BUSY 

CPNT 

0 

.  CLOCh 

STAC  POINTER 

o  34 

MOV  2.  3 

. SET  ADDR  TOP  ENTRY  IN  QUEUE 

LDA  0,  0 

»  3 

■GET  LINK  TO  NEXT  ENTRY 

LDA  2.  2 

,  3 

GET  SUSPENDED  TASK  S  TCB  ADDR 

INTDS 

.DISABLE  INTERRUPT 

I SZ  CPNT 

, INCREMENT  POINTER 

INTEN 

.  RE-ENABLE  THE  INTERRUPT 

STA  3,  @ 

c  pnt 

RETURN  ADDRESS  TO  STACK 

•JSR  @0P 

SH 

.  ACTIVATE  .JOB 

STA  0. 

RTC 

RESET  POINTER  TO  NEXT  ENTRY 

MOV  0.  2 

SNR 

,  IS  QUEUE  NOW  EMPTY? 

JMP  01: 

o,*5 

.  YES 

LDA  1,  1 

2 

■  GET  INTERVAL  COUNT  FOR  NEXT  ENTRY 

MOV  1 .  1 

SZR 

■  NO,  IS  NEXT  INTERVAL  COUNT  ZERO"' 

•JSR  CK 

ij+i 

. NO, CHECK  OVERCOUNT 

JMP  CKS4 

■CAN  ACTIVATE  JOB  RIGHT  NOW 

LDA  2,  INCLt 

■  NO. GET  ADDR  INTERRUPT  DATA  BLOCK 

JMP  ^PEND 1 

00  HANDLE  AS  GENERAL  I/O  END 

CKS5 

NIOC  RT 

: 

TURN  OFF  CLOCK 

STA  0. 

;ijce 

■  MAK E  C LOCK  I MAC T I’ JE 

:TA  0. 

IUCB+1 

■  ZERO  THE  OVERCOUNT  VALUE 

•JMP  CK 

=.■3-2 

•  EXIT 

PC  HR 

0 

.  BREAK 

HAR  CODE,  -VE  =:>  INACTIVE 

BJGB 

0 

.  ADDP 

TCB  FOR  SUSPENDED  BREAK  TASK 

INCU 

CK'iER+J 

. INTERRUPT  DATA  BLOCK  ADDR 

PEND  1 

END  1 

■10  END  INTERRUPT  EXIT 

"P8H 

JSPSH 

IOB  PEND  INiJ  STACK  HANDLER 

7D 


i  . 

a  i  ~ 
313' 


i.]:  I 


V4- 


640* 

341 
34  ?«. 
3.4  4 1 ' 
34 u.  •. 
34/x 
84  7 • 
348" 
343'.' 


85  1  u 
8520 


854  </ 


f 

\ 


,  *#  <**■*<****#■*  ■*#■*  *#-*»*•»»**'*«  *■**■*■*♦*•**<*  *" 

?fy./ 

, 

£7/..*. 

INTERRUPT  FRCii. 

FSSuR 

•  ;7  ;• 

DE TERN  INF  THE 

t NT ERRUF f I NO  DEVICE  AMR 

DI  PATH  TO  SERVICE  ROUTINE 

.  rjiiTF  INTERRUPT  SERVICING  CAN  BE  SPEEDED  UP  BY 

_  >•  - 

Pi. AMMO  1  HE  O' 

E-PATCH  TABLE  UN  PAGE  ZERu 

*  ***  *■*<►*■*  -4  ***** ****  ****«•»**#***«■*»*>*-»#*#*****«.**«#** 

-  SS- 

IN  TP-  -  r  A  2,  SAC  2 

i  SAVE  AC  2 

;;C 

C.T  A  ?. .  *5 Ai  ...:•: 

SAVE  AC  3 

S:-> 

■POWER  FAILURE  INTERRUPT  CHECKING 

'<*•'• 

IFN  PWRFL 

_ 1 ' 

SKPDZ  CPU 

. WAS  INTERRUPT  A  POWER  FAIL? 

*  •  ■. 

-IMP  ®  DI-SP+1 

<  YES  BRANCH  TO  DEVICE  HANDLER 

4  < 

ENDC 

,  . 

INTA  2 

i GET  INTERRUPT  DEVICE  CODE 

89  7o 

MOV  2.  3 

,  3980 

ANFNUI  3 

,  8990 

000077 

i  9000 

ADFNW  3 

, GENERATE  HANDLER  ADDR  POINTER 

9010 

DISP 

,  9020 

-IMP  20,  3 

;G0  TO  ITT  I 

9030 

.  9040 

i UNDEFINED  DEVICE  CAUSED  THE  INTERRUPT  9050 


NO  DEV 

LDA  3,  NIOC 

■GET  CLEAR  DEVICE  COMMAND 

*070 

ADD  2.  3 

.FORM  CLEAR  INTERRUPT  DEVICE 

ST  A  :3.  +  l 

, INSTRUCTION, PLACE  IN  NEXT  CORE  LOC 

*0:'0 

NIOC  0 

, INSTRUCTION  STORAGE 

i  i  >o 

DUNG 

LDA  2,  SAC  2 

, RESTORE  AC2 

91  10 

LDA  3,  SAC 3 

■  RESTORE  AC3 

i  2'- 

INTEN 

.ENABLE  INTERRUPT 

•'  1  s>. 

JMP  @0 

i RETURN  TO  INTERRUPTED  PROGRAM 

>  1 40 

i INTERRUPT  AC2, AC 3 

STORAGE 

1  ■'  1  * 

■■  i  to 

,  1  7u 

■SAC2 

0 

,  1  Su 

SAC  3 

0 

,  *l*i> 

NIOC 

NIOC  0 

CLEAR  DEVICE  INSTRUCTION 

9200 

■r#  “Mi, 

DISP 

DISP 

; ADDR  INTERRUPT  DISPATCH  TABLE 

•  i ». 

. POWER 

FAILURE  INTERRUPT  HANDLER  ADDRESS 

*240 

i  9250 

IFN  PWRFL 

•  *2oO 

EXTN  PWR 

i  *270 

FWR 

■  92  Si  > 

ENDC 

.  *2^0 
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>«■<*•  y-  *****  **** *  *  * *** * * * **  ** ********** »»**# ******** * ** # 


ROUTT  ME  TO  c 
AMP  SAVE  MAC 
T-  -EC.UFNCE 
•R  PRIOR 


DUCB 
TPE  turn: 


'.pr-ANGE  PR  1 1 


hi:  :  '-,  t.avfp  in  sac 2.  sacs 

MEW  PR  1  np*  I  T  Y  Wi  ipp 

f  *UP  F'RIuKITY  WORD  STORAGE 

PARRY  STORAGE 

AGO  ST  GRACE 

AC  1  STORAGE 

AC  2  STORAGE 

AC  3  STORAGE 

PC  STORAGE 

APDR  OR  DEVICE  CONTROL  BLOC  I 
INTERRUPT  ENABLED 


*fr#**#*^tH»***#*#*#*ft***4»+*  **************************** 


LDA  2 . SAC  2 
STA  2.  IAC2+2. 
LDA  2,  SACS 
STA  2.  I  AC  3+2 1 
LDA  2,  PMSK 
STA  2,  I  OMSK +2 
LDA  2.  INMSK+2 
STA  2,  PMSK 
DOBS  2,  CPU 
LDA  2.  0 
STA  2,  IPC+2.  3 
STA  0.  IACO+2, 
STA  1.IAC1+2, 
SUBCR  2,  2 
STA  2,  ICRY+2. 
LDA  2,  IDUCB+2 
■JMP  IDUCB+  3.  3 


PMSK  0 


,  GET  AC 2 

•SAVE  IN  CALLING  ROUTINE 

,  GET  ACS 

;  SAVE  IN  CALLING  ROUTINE 

.FETCH  CURRENT  PRIORITY  WORD 

.SAVE  IN  CALLING  ROUTINE 
.GET  NEW  PRIORITY 
ESTABLISH  IT  --  SOFTWARE 
ESTABLISH  IT  —  HARDWARE 

i  FETCH  INTERRUPT  PC 
AVE  IN  CALLING  ROUTINE 
SAVE  ACO  IN  CALLING  ROUTINE 
SAVE  AC  1  IN  CALLING  SEQUENCE 
GET  CARRY 

SAVE  IN  CALLING  ROUTINE 

i GET  DEVICE  CONTROL  BLOCK  A DDR 
RETURN  (INTERRUPT  ENABLED) 

;  CURRENT  TASK  PRIORITY  STORAGE 


.  ******************************************************* 

;  TTY  UNIT  0  INTERRUPT  SERVICE  ROUTINES 

,  ******************************************************* 


970' 
9710 
9  7 1. 1 
97  S'. 


>  INPUT 


TTY  10 

TTIO  JSR  PRIOR 
3 
0 
0 
0 
0 
0 
0 
0 

TTYO 

DIAC  0.  TTI 
JMP  TTY  I 


ADDR  OF  DEVICE  INIT.  ROUTINE 
REARRANGE  PRIORITIES 
NEW  MASK 

OLD  MASK  STORAGE 

CARRY 

ACO 

AC1 

AC  2 

ACS 

PC 

ADDR  TTY  UNIT  0  CONTROL  BLOCK 
GET  CHARACTER 
GO  PROCESS  TTY  INPUT 


OUTPUT 


TTOO  JSR  PRIOR 
1 

0 

0 


REARRANGE  PRIORITIES 
NEW  MASK 

OLD  MASK  STO-AGE 
CARRY 


97  S'. 
97—;. 
9800 
98 1 G 


9gA' 

9850 

9860 

9870 

9880 

9890 

9900 

9910 

9920 

9930 

9940 

9950 

9960 

9970 

80 

9990 


0 

0 

0 

0 

0 

.  TTYO 
NIOC  TTO 
JMP  TTYO 


;  ACO 
'  AC1 
.  AC2 
.  AC  3 
.  PC 

.ADDR  TTY  UNIT  0  CONTROL  BLOCK 
; CLEAR  TTY  OUTPUT  FLAGS 
.  GO  PROCESS  TT  OUTPUT 


10000 
10010 
1002'J 
10030 
10040 
10050 
1 0060 
10070 
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^  ^  ^  ^ 

fPPr\r 

GRf  t 

BRK  2  ‘ 

BRK3- 


BRK  4 

»">U  I T  = 
TF-SH 


*.  ‘ITER  M~  :  ''h  r  -:  '  ’  F.’  :«  i'.l  H-i'  £RF  D 

*.  *.  A:.  i -t-hl'n  1  I  t'  rijMlKM'U.  l  ? 

Hl  *'  »t  1’  r.  •-!['  »  Or*  * 


M»TV 

2  1 1 

Lt'A 

1 ,  D  "  r  C  A .  2 

MOV 

1.2-  SNR 

,'MP 

BRK  3 

lda 

1 ,  DFLNr  ,  2 

MOV 

1  .  S'  ;NR 

.  IMP 

BRK  2 

'  SR 

8TPSH 

JMP 

BRK  1 

MOV 

0,  2 

ST  A 

1, 8DPLNK.  2 

MOV 

0,  3 

LDA 

2.  .  BJOB 

LDA 

3,  BBRK,  3 

STA 

3,  TAC3.  2 

■JSR 

8QPSH 

LDA 

3,  BRK 3 

STA 

3,  BCHR 

MOV 

0.  3 

STA 

1 ,  BJOB 

LDA 

1 , DMODE, 3 

LDA 

2,  DTCBA,  3 

MOV 

2,  2,  SNR 

JMP 

BRK  4- 3 

MOVZR  1,1,  SZR 

JMP 

BRK  4 

STA 

1,  DTCBA,  3 

JSR 

8TPSH 

MOV 

0.  2 

LDA 

2,  DIDBI.  2 

JMP 

0PEND1 

MOV 

0,  2 

LDA 

1 ,  BRK.  3 

LDA 

0,  QUIT 

..IMP 

HLTOT  *5 

SAVE  ,  -DDR  HI  ir.  E: 
r-USPENDED  T i  6  ADDR 
,.N  t  /,■)  OPERA T  1  ON  ACTIVE' 

•  MCi.  COMPLETE  CREAK  REQUEST  HANDLING 

GET  L  INI  TO  NK  .<■  I  TACKED  BLOCK 
.  REACHED  END  OK  STACKED  I  / U 
■YES.  SETUP  QUIT  RETURN 
,  NO.  RETURN  BLOCK  TO  QUEUE  STACK 
.  CONTINUE 


,  RESTORE  ADDR  DUCB  TO  AC 2 
,  SET  LINK  TO  NEXT  BLOCKED 

,  GET  DUCB  ADDR  IN  ACS 
,  GET  ADDR  DORMANT  QUEUE  BLOCK 
, OET  TTY  UNIT  « 

,  ENTER  AS  RETURN  ACS 
.ACTIVATE  BREAK  JOB 
i  PICK  UP  A  -VE  # 

.SET  BREAK  REQUEST  INACTIVE 

,  RESTORE  DUCB  ADDR  TO  ACS 

■  SET  BREAK  REQUEST  INACTIVE 
.GET  MODE  SWITCH 

.  GET  SUSPENDED  TCB  ADDR 
■AN  I/O  OPERATION  IN  PROGRESS0 
■NO,  DISMISS  INTERRUPT 
:  YES.  TEST  MODF  SWITCH 
. OUTPUT  MODE 

.INPUT  MODE, SET  DEVICE  NOT  BUSY 
.  RETURN  BLOCK  TO  QUEUE  STACK 

; RESTORE  DUCB  ADDR  TO  AC 2 
,  GET  I NTERRUPT  DATA  BLOCK  ADDR 

■  DISMISS  INPUT  INTERRUPT 

, RESTORE  DUCB  ADDR  TO  ACS 
SET  AC  1  NEGATIVE 
•GET  “  QUIT"  SERVICING  ADDR 
,  OUTPUT  MODE  MUST  BE  TERMINATED 


TRAN+2  .  QUIT  SERVICING  ADDR 

USPSH  . PUT  ADDR  BACK  ON  STACK 


1  o03v 
100 
1  v  1  ’ 
l  o  1 : 

10  j  — 

1  ■.  1  -r  . 
1 0 1  “  •  ■ 
1 

to l  '■■■ 


1 1.>  1 
1 020  . 
1021'  ■ 
1020- 
1 02 . 
1024' 

1 02  SC 

102-10 

1027': 

2  0280 

1 02*0 

1 0300 

1 03 1 

1 032'.< 

10330 

’  0340 

.  0350 

10360 

10370 

10330 

10  3*o 

1 0400 

10410 

10420 

10430 

1044'.' 

10450 

1  0460 

10470 

10430 

10490 

10500 

10510 

10520 

1 0530 

10540 

10550 

1 0560 

1057'.' 

1 0530 
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*>  *  **/<•  **  .*  »  *  *■  *  ^  *  ■*  *  *>■  ■*■+■** +  •*■*#  <*  +  *■**  +  *  -*•***•*#■ *•***■*■***••* 


i  : .  i;.  r; . .,  p,  -liTIfif-  Ti'i  ;  - 1,  c.- .. pnf  ESS*  ***1  ‘  rTV  INPUT 

i  '  •-  Mi  'l  >?-  DEV  j*E  -  -i  i  i  >  i  OuTKOL  L:LOC« 

r'^i'n)  -r h  7-9  AC TER 

A'".'  .  .  *:  f-L  READv  :AVfcD 


LDA 

DBRI  .  2 

. GET  BREAK  ENABLE  WORD 

r  orw 

t  SNR 

,  BREAK  ENABLED  ON  THIS  TTY”' 

JMP 

NOP-1 

.  NO.  GO  ON 

LDA 

5,  BCHK 

■  YES.  GET  1. ODE  FOR  BREAK  CHAR 

SUB#  0,  3,  SNR 

■BREAK  REQUEST " 

■JMP 

BREAK 

,  YES.  00  SERVICE 

LDA 

3,  DTCBA.  2 

.GET  TTY  ACTIVE  WORD 

MOV 

3.  3.  SNR 

,  IS  TTY  I/O  IN  PROGRESS'' 

JMP 

DISN 

■NO  -  DISMISS  INTERRUPT 

LDA 

3.  DMODE.  2 

,  GET  TTY  MODE  WORD 

MOVZR#  3.  3,  SZR 

.  INPUT?  OR  OUTPUT "> 

JMP 

HLTOT 

, OUTPUT  —  I/O  ERROR 

MOVZR#  3.  3.  SZC 

; SUPRESS  ECHO 

JMP 

CHIN 

. YES.  00  HANDLE  INPUT 

LDA 

3.  DOA 

, NO,  PICKUP  IOT  CONSTANT 

3TA 

0.  DTEMP,  2 

;  SAVE  CHARACTER 

LDA 

0.  DVCDE,  2 

;  GET  DEVICE  CODE 

ADD 

0.  3 

i  ADD  TO  INSTRUCTION 

LDA 

0.  DTEMP.  2 

i  RESTORE  CHARACTER 

STA 

3.  DTEMP,  2 

i STORE  INSTRUCTION 

JSR 

DTEMP.  2 

>  EXECUTE  IT 

■JMP 

CHIN 

,00  HANDLE  INPUT 

«ZJ 

O 

I> 

iff 

,  INSTRUCTION 

,  ##****•**##**•*•*■*■***■*******■#****■****•**##*•*#■#•*****■****•**•**•*** 

GENERAL  ROUTINE  TO  PRE-PROCESS  ALi_  TTY  OUTPUT 

C<AC2)«AD0R  DEVICE  UNIT  CONTROL  BLOCK 
AC 2.  AC -3  ALREADY  SAVED 

,  *-»*««-»*«#«#*««#«#*«•»*#•***-»•»*«*«*«*-»«*«#«-*•*-»*#•*'»«**««*** 

r T Y 0  lDA  3, DMQDE,  2  *  GET  MODE  WORD 

MOVZR#  3. 3. SZR  i INPUT?  OR  OUTPUT? 

JMP  CHOT  .OUTPUT,  GO  SERVICE 

i INTERRUPT  DUE  TO  ECHOING  OF  INPUT 

LDA  0, DCNT.2  j PICKUP  DATA  COUNT  VALUE 
MOV  0.0, SNR  .CHECK  IF  FURTHER  INPUT 

•JMP  CHR04-3  .  NO,  PERFORM  I/O  END 

LDA  2, D1DB0. 2  .GET  INTERRUPT  DATA  BLOCK  ADDR 
IMP  DISN  DISMISS  INTERRUPT 


1  i 

1  060*  ’ 
1061'. 

1  Oc.2 
y  .  >,  *  • 

1  vc-4' 
W'-C* 

1 

I«<6  /■ 

1 

I  O'. 
107- 
107  1* 
1072' 
107  '• 
1('74< 
1075. 
i  l  '7 
1077' 

1 0780 
lv7'>. 
10800 
10310 
10820 
1 0830 
10840 
1 0850 
10860 
10870 
1 0830 
10890 
10900 
10910 
10920 
1 0930 
10940 

1 0950 
1 0960 


X09SV 
10990 
1 1  OOu 

1 1 0 1 0 

1 1020 
1 1030 
11040 
1 1 050 
1 106o 
1 107o 
1 1080 
1  1 0,r,0 
1 1 1 00 
11110 
1  1  120 
1  1  1  70 
1 1140 
1 1 1 50 

into 
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»■»■»*****  **■*■##■»»  «  *»**»**#»**<■***  **••**«*»•••**••*•****« 

INTERRUPT  FF-ENTRANT  ROUTINE  TO  HANDLE  OUTPUT  ON 
TELETYPE  AND  SIMILAR  DEVICES 


1  1 1  7v 
1 1 18" 
1  1  19" 
1 1200 
1121" 
1 122  .• 
1  1201. 
1  124':' 
1 125u 


0  *  AC  2  )  s 

sADPR  PE7 1'' 

E  UNIT  CONTROL  BLOCK 

1126" 

AC  2 ,  AC" 

ALREADY  f 

AVED 

1127'- 
1  1 

,  *■*■*****■***•*************-******#***■***********■***#******.* 

1129'. 

1 1 30*.' 

CHOT  LDA 

3.  DCNT .  2 

GET  DATA  COUNT 

1131' 

MnVltt  I.  SZC 

.  DATA  COUNT  >  OR  =  0’’ 

1132'. 

..IMP 

CHRij-l 

, NO  =>  OUTPUT  WAS  TERMINATED 

1 1 330 

MOO 

2.  2.  z.NR 

, GONE  TO  ZtROY 

n  34" 

JMF 

L  HRO 

YES,  I/O  COMF1  ETE 

1  1  3*50 

■JSR 

OUT 

,  GO  GET  CHAR  AND  GENERATE  IOT 

1136" 

..IMP 

CHRO+l 

■RETURNS  HERE  IF  I/O  COMPLETE 

1 1  37" 

JSR 

DTEMP, 2 

.EXECUTE  INSTRUCTION 

1  1 380 

LDA 

2,  DIDBO.  2 

■GET  INTERRUPT  DATA  BLOCK  AD DR 

1 1 390 

•  JMP 

DISN 

DISMISS  INTERRUPT 

1  14C0 

11410 

,  !HMl44#**»****»#***  +  #tlHHHHHHHf*«»»#»***»**f###**#»#»**** 

1  1  42" 

1  1430 

ROUTINE 

TO  GET  CHARACTER  AND  GENERATE  10  INSTRUCTION 

1 1440 

C ( AC2 ) = 

-ADDRESS  DEO  ICE  UNIT  CONTROL  BLOCK 

1 1  450 

. 

1  1 460 

,  #****#*#****  +  »**#*iH»**#****#*******4***####»*HHH»******* 

11470 

1 1 480 

OUT  STA 

3.  DTEMP.  2 

i SAOE  RETURN  ADDRESS 

1  1 490 

■JSR 

@DOSR.  2 

.GET  CHAR  WITH  PROPER  ROUTINE 

1 1500 

LDA 

1 ,  DCMDE.  2 

. GET  MODE  WORD 

11510 

MOO 

1,1.  SZR 

.ASCII?  OR  IMAGE? 

11520 

JMP 

+4 

. IMAGE.  IGNORE  NULL  AND  PARITY 

11530 

MOO 

0,0.  SNR 

.ASCII.  NULL  CHARACTER'7 

11540 

.JMP 

OUT  1 

i YES.  I/O  COMPLETE 

11550 

■JSR 

@DPRTV  2 

•GENERATE  PARITY 

1 156" 

LDA 

3.  DOCL  2 

GET  DEVICE  CODE 

1  157" 

INC 

3.  3 

i INCREMENT  (CONVERTS  TTI  TO  TTO ) 

1  1580 

LDA 

1.  DOAS 

. GET  INSTRUCTION 

11590 

ADD 

3,  1 

i ADD  DEVICE  CODE 

1  1  600 

ISZ 

DTEMP. 2 

. INCREMENT  FOR  NORMAL  RETURN 

1  161" 

OUT 1  LDA 

3.  DTEMP,  2 

.  RESTORE  RETURN 

1  1  620 

STA 

1 , DTEMP, 2 

. SAVE  IOT  INSTRUCTION 

1  1  6-:  0 

JMP 

0.  3 

.  EXIT 

1164" 

.  1  1 0.5C 

OUTPUT  OPERATION  COMPLETE 

1166'.' 

11670 

NEG 

3.  0.  SKP 

i  NEGATE  TERMINATION  CHAR. 

1 1 680 

C HRu  ADC 

0,  0 

> GENERATE  -1 

1 1690 

LDA 

3,  DTCBA,  2 

.GET  ADDR  CALLER'S  QUEUE  BLOCK 

1170" 

STA 

o.  TAC3.  3 

. SET  RETURN  ACS 

11710 

LDA 

ii,  DIDBO.  2 

.GET  INTERRUPT  DATA  BLOCK  ADDR 

1 1 7  2" 

.IMP 

I OEND 

.1/0  OPERATION  COMPLETE 

11730 

76 


INTERRUPT  RE-ENTRANT  ROUTINE  TO  HANDLE  INPUT  ON 
TELETYPE  AND  SIMILAR  DEVICES 


U7V> 
1 1 76u 

I  1  77/> 

I I  780 
1 17'r" 

CCAC2>=ADDR  DEVICE  UNIT  CONTROL  BLOCK  1180.  • 

C  <  ACO )  =  I NFUT  CHARACTER  1181" 

AC0.AC2.AC3  ALREADY  SAVED  1 182', 

1  1  380 

.  *«•#*****■»■***#***■**■»#***•*****•*•***#*****#****#**■»■**■**■»**■*  1 184C' 

,  1  1 85'  ■ 

CHIN  LDA  3.DCMDE.2  ,  GET  MODE  WORD  11840 

MOV  3,  3,  SZR  i  ASCI  I?  OR  IMAGE?  11870 

JMP  CHRI1  ; IMAGE.  IGNORE  SPECIAL  CHECKS  11880 

MOV  0,0.  SNR  ,  ASCII,  CHECK  FOR  NULL  11390 

JMP  CHR12  .NULL  =>  IGNORE  11900 

■JSR  @DPRTY.  2  .CHECK  PARITY  ll«I,, 

COM#  0.0, SNR  . ERROR?  '  11920 

■JMP  C  HR  1 3  ;  YES.  TAKE  ERROR  RETURN  1  l93o 

LDA  3, DTERM, 2  .GET  ADDR  LIST  OF  TERMINATORS  11940 

LDA  1.0.3  .GET  TERMINATOR  CHARACTER  CODE  11950 

MOVZL#  1.1.  SZC  ;  END  OF  LIST?  1194.0 

JMP  CHRI1  ;YES,  CONTINUE  11970 

SUB  0.1,  SNR  ;  NO,  CHECK  FOR  MATCH  11980 

■JMP  CHRI  +  1  .TERMINATION  CHAR  =>  I/O  COMPLETE  11990 

INC  3.3  ; GET  NEXT  ADDR  12000 

JMP  .  -6  i TRY  AGAIN  12010 

i  12020 

CHRI1  JSR  SDGSR. 2  , STORE  CHAR  WITH  PROPER  ROUTINE  12030 

LDA  3, DCNT . 2  , GET  DATA  COUNT  12040 

MOV  3, 3. SNR  ; GONE  TO  ZERO?  12050 

•JMP  CHRI  .YES.  I/O  COMPLETE  12040 

i  12070 

CHRI 2  LDA  3, DVCDE, 2  i GET  DEV I CE  CODE  12060 

LDA  l.NIOS  .GET  INSTRUCTION  12090 

ADD  1,3  . ADD  TO  DEVICE  CODE  12100 

STA  3, DTEMP.2  .SAVE  INSTRUCTION  12110 

JSR  DTEMP.2  ; EXECUTE  IT  12120 

DISN:  LDA  2. DIDBI.2  ; GET  INTERRUPT  DATA  BLOCK  ADDR  12130 

JMP  DISN  .DISMISS  INTERRUPT  12140 

i  12150 

i TELETYPE  INPUT  INTERRUPT  WHILE  IN  OUTPUT  MODE  12140 

i  12170 

HLTOT  LDA  1, DCNT, 2  , GET  CURRENT  WORD  COUNT  12180 

NEGZL#  1,1. SNC  i IF  <=  0  «>  IN  TERMINATION  STATE  12190 

JMP  OISN  i  SO  DISMISS  INPUT  INTERRUPT  12200 

i  12210 

■  OUTPUT  TO  BE  TERMINATED  12220 

i  12230 

NEG  0.1  i SET  TERMINATION  CHAR  NEGATIVE  12240 

LDA  0, DERTN, 2  ; GET  ERROR  RETURN  ADDR  12250 

LDA  3,  DTCBA,  2  ;  GET  CALLER'S  QUEUE  BLOCK  ADDR  12240 

STA  1, DCNT. 2  ; SAVE  AC1  AS  NEW  WORD  COUNT  12270 

STA  0.  TPC.3  .  SAVE  AS  RETURN  PC  ADDR.  12280 

JMP  DISN  ; DISMISS  INPUT  INTERRUPT  122*0 


i  ERROR  RE T !  ip'  1 

HR  I  3  l.DA  :•••  DICI-.A.  2 
LDA  l .  DER  T !'i 
:  T A  I.TPC, 

..IMP  CHRI+C 


MET  APDR  i.ALLES  S  T"  hi  'E  CL  ME 
■  -h  T  fc  h  1  PfclU.’N  •  • 

'C.VE  r V-.  RET  URN  P* 

I  i'  i  "MPLETE 


r  -IF'  .  OPERATION  COMF1. PIP 


JTA  1 ,  DCNT ,  2 
l.  DA  3.  DTCDA  2 
FT  A  0.  TAC  3  3 
I.r.iA  O,  DMODE.  2 
MOVP  O,  Pi,  F Mi; 
.IMP  DION 
LDA  0,  DIDBJ .  2 
.IMP  IOEND 


OEMEPATE  -1 

■SET  WORD  COUNT  VALUE  0 

GET  A  DDR  CALLER  -5  QUEUE  BLOC  h 

-ET  RETURN  AC 3 

GET  MODE  WORD 

-i  IP  IF  NOT  ECHOING 

DISMISS  INPUT  INTERRUPT 

GET  INTERRUPT  DATA  BLOCK  ADDR 

1-0  OPERATION  COMPLETE 


12  39' 

1240.. 

124U 

1 2  4 ■ 

124.-.- 

1244" 

1245' 

1  242 '. 
124'. 
124:io 
124';'0 


DOA'3  DOAS  0.  0 

N I  OS  N I OS  0 


**»******■**«•*****•»***■»**■»•********■»***■*'»■*•*■*■»*#■****'»•»*■»** 

ROUTINE  TO  DISMISS.  INTERRUPT 
C ( AC2 ) =ADDR  DATA  BLOCK  IN  INTERRUPT  SERVICE  ROUTINE 

*»*****************<»■*******■»*******»•***■»***•«*•»**#•»•»-»*•»■» 


DISN  LDA  0.  I ACO,  2 
LDA  1,  I  AC  1 . 2 
LDA  3,  I  OMSK,  2 
DOBC  3  CPiJ 
STA  3, SPPMSK 
LDA  3.  IPC,  2 
MOV  3  3  SNR 
QUIT 
STA  3. 0 
LDA  3  I CRY  2 
MOVL  3  3 
LDA  3,  I AC3.  2 
LDA  2,  I  AC 2,  2 
INTEN 
•  IMP  @0 


, RESTORE  ACO 
, RESTORE  AC1 

.RECALL  ORIGINAL  PRIORITY  WORD 
. RESTORE  IT  HARDWARE- I NTDS 
i RESTORE  I T  —  SOFTWARE 
,  GET  RETURN  PC 
;  WAS  A  NULL  EXECUTING  3 
, YES — RESCHEDULE 

i SAVE  RETURN  PC 
,"  GET  CARRY  WORD 
. RESTORE  CARRY 
, RESTORE  ACS 
, RESTORE  AC2 
, RE-ENABLE  INTERRUPT 
, RETURN  TO  INTERRUPTED  PROGRAM 


PPMS.K  PMSI 


.POINTER  TO  CURRENT  PRIORITY 


1 25c. 
125U. 
12520 
1 2530 
12540 
12550 
12560 
1 2570 
12580 
1259" 
1 2600 
12610 
12620 
1263o 
12640 
12650 
1 2660 
1 2670 
1268o 
1 269'.' 
1270o 
12710 
12720 
127  3- 
1274" 
1275" 
12~:>- 
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.  i :  7  -  ■ 

****•••**•***•#«*••***«•<*#*•*«*•**•**»»*•»***##•*•»»**  12760 

1  27" 

ROUTINE  TO  HANDLE  END  OF  I/O  OPERATION  126"" 

1-61'. 

C ( ACO ) -ADDRESS  INTERRUPT  DATA  BLOCK  1-6.' 

(0  IF  NON- INTERRUPT)  12:-" 

C  ( AC2 ' “ADDRESS  DEVICE  UNIT  CONTROL  BLOCK  1 

»*«*-«««.«****«***««#*ft->4.»t.****44»*»«****«*»***«^****«***  : 

IOEND  LDA  1.D0BSY.2  .FETCH  QUEUE  AVAILABILITY  SWITCH  126.7" 

MOV  1,1.  SZR  , QUEUE  AVAILABLE?  1- 

JMP  ENDS  .NO — CREATE  NEW  JOB  < INTERRUPT  MODE)  J-. 

LDA  l.SDTCBA. 2  . YES.  GET  ADDR  NEXT  I/O  REQUEST  12 

STA  0. DTEMP.2  .SAVE  INTERRUPT  DATA  ADDRESS  12- 1 

MOV  2.0  i  SAVE  AC 2  12"'- 

LDA  2  DTCBA  2  ;  FETCH  ADDR  OF  JOB  TO  BE  ACTIVATED  :2'‘3< 

JSR  @RPSH  .ACTIVATE  IT  l-?-' 

MOV  1.1,  SZR  .ANOTHER  REQUEST  PENDING''  *  -  - 

..IMP  END4  iYES,  CREATE  JOB  TO  DO  NEXT  I/O  12  -:'.. 

MOV  0,2  i  NO,  RESTORE  BUCB  ADDR  TO  AC2  1 -'7'7' 

STA  1 , DFLNK, 2  ; NO.  MAKE  DEVICE  AVAILABLE  12' 6 

ENDO  LDA  2.  DTEMP.  2  ,  GET  INTERRUPT  DATA  BLOCK.  ADDR  12-'-  '. 

MOV  2.  2.  SNR  i  INTERRUPT  EXIT?  13<>0" 

QUIT  i  NO,  TERMINATE  JOB  1201 . 

ENDl  LDA  1,  SYS  iYES,  PICKUP  MODE  SWITCH  13020 

MOV  1,1,  SZR  ;  SYSTEM  MODE?  I  SO  So 

-IMP  DISN  i  YES-DISMISS  INTERRUPT  AND  CONTINUE  13040 

LDA  0  I OMSK  2  i PICKUP  OLD  PRIORITY  MASK  1305" 

LDA  1  IPC  2  i (USER  MODE) — PICKUP  RETURN  PC  13060 

MOV  1  1  SNR  i  WAS  PROGRAM  COUNTER  -  O  ?  13070 

JMP  END2  ,  YES  *>  NULL  JOB  WAS  OPERATIONAL  13080 

MOV  O  0  SZR  i NO— CHECK  OLD  HARDWARE  MASK  130?" 

JMP  DISN  i NON- ZERO  *■>  INTERRUPTED  ANOTHER  13100 

i INTERRUPT  SERVICING  PROGRAM  13110 

MOV  2,0  i  ZERO— SAVE  INTERRUPT  DATA  ADDR  13120 

JSR  @PPOP  i GET  QUEUE  BLOCK  13130 

MOV  0.3  ; RESTORE  INTERRUPT  DATA  ADDR  13140 

LDA  1.C377  , GET  PRIORITY  MASK  13150 

LDA  0,  SPCPTY  , GET  CURRENT  PRIORITY  13160 

AND  1,0  i  RESTRICT  PRIORITY  TO  3  BITS  131 "u 

LDA  1,1 CRY. 3  i  GET  CARRY  IN  AC1  BIT  0  1 216" 

ADD  0,1  i  HAVE  QUEUE  ENTRY  131*0 

STA  1 , TPTY,  2  i  ENTER  IT  13200 

LDA  0,  IAC0.3  i  GET  ACO  1321" 

STA  0, TACO, 2  i ENTER  IT  13220 

LDA  0,1  AC  1,3  i  GET  AC1  13230 

STA  0,  T  AC  1,2  ,  ENTER  IT  1324' 

LDA  0,  IAC2,  3  ,  GET  AC 2  12-5'.' 

STA  0.  TAC2,  2  .ENTER  IT  1S2oO 

LDA  0,  I  AC  3,  3  ;  GET  AC3  1327/ 

STA  0.  TAC3.  2  .ENTER  IT  1326'. 

LDA  0,  IPC,  3  i  GET  RETURN  PC  12-'" 

STA  0,  TPC,  2  ; ENTER  IT  1330" 

LDA  1,  I OMSK.  3  i  GET  OLD  PRIORITY  MASK  WORD  13310 

STA  1,«PPMSK  .RESTORE  IT  SOFTWARE  13320 

MSKO  1  .RESTORE  IT  HARDWARE  13320 

JSR  8RPSH  .ACTIVATE  JOB  13340 

QUIT  .  EXIT  TO  SCHEDULER  1 33.10 
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,  1  336 

;NIJLL  JOB  WAS  INTERRUPTED  133.70 

•ENTERED  WITH  13380 

Ar  i  '=T'L  D  HARDWARE  PRIORITY  MAS)  130*1. 

i  1340.. 

EMD2  ETA  0.  <*PPMS)  .RESTORE  PRIORITY  SOFTWARE  134U 

MSKO  O  .RESTORE  PRIORITY  HARDWARE  1340'.' 

QIJ  IT  .Em  TO  THE  SCHEDULER  1  : 4 :?( 

,  1 

i CREATE  JOB  OF  PRIORITY  O  TO  PERFORM  END  13450 

iOF  OPERATION  AT  NON- INTERRUPT  LEVEL  BECAUSE  13460 

,  QUEUE  FOR  DEVICE  WAS  NOT  AVAILABLE  AT  THE  1347'.. 

•  TIME  OF  THE  INTERRUPT  1343... 

i  13490 

ENDS-  MOV  2.1  ; SAVE  AC 2  *  13500 

•jSR  @PPOP  (  GET  QUEUE  BLOCK  13510 

ST A  1.TAC2. 2  .ENTER  AC2  13520 

SUB  1.1  (  13530 

STA  1.TPTY.2  . RETURN  PR  I OR I TY  =0  13540 

STA  1, TACO, 2  ; RETURN  ACO-O  13550 

LDA  l.NEWPC  .PICKUP  RETURN  ADDR  13560 

STA  1.TPC.2  i ENTER  AS  RETURN  PC  13570 

JSR  aRPSH  .ACTIVATE  JOB  13580 

MOV  0.2  ( RESTORE  INTERRUPT  DATA  ADDR  13590 

■JMP  DISN  (  DISMISS  INTERRUPT  13600 

i  13610 

NEWPC  IOEND  > RETURN  ADDR  13620 

(  13630 

.CREATE  JOB  OF  PRIORITY  ZERO  TO  START  13640 

.NEXT  I/O  OPERATION  ON  DEVICE  13650 

i  13660 

END4  JSR  @PPOP  i  GET  QUEUE  BLOCK  13670 

STA  0, TAC3, 2  ( SET  AC3  13680 

STA  1.TAC2.2  i SET  AC2  13690 

MOV  1.3  i RESTORE  QUEUE  BLK  ADDR  TO  AC3  13700 

LDA  3. TAC3. 3  (FETCH  CALLER'S  AC3< ADDR  IOX+1 >  13710 

LDA  1.ICNTL.3  (PICKUP  DEVICE  CONTROL  WORD  13720 

STA  1, TACO. 2  (ENTER  AS  RETURN  ACO  13730 

SUB  1,1  (CLEAR  AC  1  13740 

STA  l.TACl.2  (SET  AS  RETURN  AC1  13750 

STA  1.TPTY.2  .SET  AS  RETURN  PRIORITY  13760 

MOV  0.3  (GET  DUCB  ADDR  IN  AC3  13770 

LDA  1.DNI0R.3  (GET  ADDR  NEXT  I/O  ROUTINE  13780 

STA  1.TPC.2  (SET  AS  RETURN  PC  13790 

JSR  SRPSH  (ACTIVATE  JOB  13800 

MOV  0  2  .GET  DUCB  ADDR.  IN  AC3  13810 

JMP  ENDO  .DETERMINE  TYPE  OF  EXIT  REQUIRED  13820 

,  (INTERRUPT  OR  USER)  13830 

PROP:  QSPOP  ( SUBROUTINE  POINTER  13840 

RPSH  JSPSH  (SUBROUTINE  POINTER  13850 

PCPTY-  CPTY  .POINTER  TO  CURRENT  PRIORITY  STORAGE  13860 


•»*#*■»****•*  ■»*»*■************###•***•»•***'#  •*■»*•**■*****•**■»  •***•*# 

THE  F'O  L  'WING  ROl.lT  TNE-  ARE  USED  BY  THE 
MANNER--  TO  GENERATE  -  TEST  ODD  OR  EVEN  PARITY 

‘ALL  I NO  SEOUENCEO 

LDA  it,  i;:HAR7  ;  GET  /  BIT  CHAR  IN  ACO 

J'JF  •  OODD.  SEVEN >;  GENERATE  ODD  Oft  EVEN  PARITY 

:return:  .char  in  ago  with  parity  bit  set 

LDA  0. CHARS  .  GET  3  BIT  CHAR  IN  ACO 

•JSR  ( TODD.  TEVEN ),  TEST  ODD  OR  EVEN  PARITY 
CRETURN>  .PARITY  OK  =  7  BIT  CHAR  IN  ACO 

.PARITY  FAILURE  =>  C<ACO>— 1 

ON  ENTRY 

C(AC2)=ADDR  DEVICE  UNIT  CONTRL  BLOCK 
ALL  ROUTINES  ARE  RE-ENTRANT 

*•****•**•*****•*»*•****•*»•****••**•**•*•*******»•*«.*• 


GOOD 

GEVEN: 

TODD: 

TEVEN: 


ADDOR  2,  2,  SKP 
ADDOR  2.  2,  SKP 
ADDOR  3.  3 
MOVZS  0.  1 
ADD  1.  1,  SZR 
■JMP  .  -I 
LDA  l.BITO 
ADD  1,  3 
MOVL#  2.  2.  SZC 
JMP  +5 

1.  Cl 77 
1. 0.  SZC 


LDA 

AND 


?I  T.j 


ADC  0.  0 
•JMP  0.  3 
ADD  1 . 2 
MOVS  1.1. 
ADI.  1 . 0 
JMP  O, 
i V) 


SNC 


SET  AC2  BIT  O  FOR  GENERATION 

II  II  II  It  H  II 

SET  AC3  BIT  0  FOR  ODD  PARITY 
CEAR  CARRY  AND  SHIFT  LEFT  8 
SHIFT  LEFT  AND  COMPUTE  PARITY 

i REPEAT  U  AL  BITS  TALLIED 
;  FETCH  100000  IN  AC1 

; COMPLEMENT  CARRY  IF  ODD  DESIRED 
;  TESTING  OR  GENERATING? 

; GENERATING — GO  D  IT 
.GET  7-BIT  MASK 

.  CONVERT  TO  7-BlTi  CHECK  PARITY 
i PARITY  ERROR 
i RETURN 

I  CLEAR  AC2  BIT  0 
.  CREATE  200.  SKIP  IF  NOT  PEG '  D 
iADD  IN  PARITY  BIT 
; RETURN 

100000 


1 3870 

Hi-'-: 

13 

1 39  1  • 
13'- 2*.* 
1  .:•••' :U 
1  39**  i  • 
I3f*r- 

1 

1 397v 
1 3980 
1 3 99 1 
1400'.. 

1 40  1  j 
1 402'. 
1 4030 
1404O 
1405*.1 
1406': 
14070 
1 4080 
1 409u 
14100 
14110 
14120 
14130 
14140 
14150 
14160 
14170 
1 4 1 80 
1419(.' 
14200 
14210 
14220 
1 4230 
1-V-I  ■ 
14250 
1424".. 
1“'.'" 

1  .  '  • 


•  -/•  -» ' 


1'  <+  V  <(■  •+ 


**  4*  «•*■***•#•**  * 


1 


1*0 


THH  -•:«  *:-j  ■  •-•■Mir  '»||T.7  OFT'  f.luRE  AN  8  BIT 

,j  ,*'M  •  i  ■ . '  T  WORD 


riR  !''ff  V  f  r.  F  I  ;N  T  r  ON  fP»  -I .  BL  »X  K 


i~  T"  HR 


I  DA  o .  @CT...-,Gp',  2 
I  DA  I .  i"  377 
AND  1,0,  SKP 


<•«■»■«■*+■»*+**********■*■********•***** 
F  t  CKUP  CHARACTER 
•  GET  AN  3  BIT  MASK 
,  MASK 


7TA  '7*  liE'DADR.  A 
ISZ  DDADR,  2 

dsz  dcnt  . 

.JMP  , 

JMF1  •}■  :■ 


,  STORE  charac ter 
, INCREMENT  POINTER 
,  DECREMENT  DATA  COUNT 

EXIT  —  NORMAL 
■EXIT  —  COUNT  GONE  TO  ZERO 


THE  FOLLOWING  ROUTINES  PACK  AND  UNPACK  2  8-BIT 
CHARACTERS  PER  16  BIT  WORD 

ON  ENTRY 

C<AC2)=ADDR  DEVICE  UITCNRO  BLOC 


;  i****************************************************** 


GCHRP  MOV  3,  1 

LDA  3-  DDADR,  2 
MOVZR  3,  3 
LDA  0,  0,  3 
MOV  0. 0, SZC 
MO  VS  0,  0 
LDA  3.  C377 
AND  3.  0 
MOV  1 , 3 


iSAVE  RETURN  ADDR 
GET  DATA  POINTER 
CONVERT  TO  ADDR 
PICKUP  WORD 
RH'7  OR  LH? 

LH  »>  SWAP 
GET  8  BIT  MASK 

i HAVE  CHARACTER 
i RESTORE  RETURN 


■JMP  STCHR+1  .EXIT 


SCHRP  STA  3,  DTEMP.  2 
LDA  3.  DDADR.  2 
MOVZR  3.  3 
LDA  3,  0.  3 
MOV  0,  0.  SZC 
MO  VS  3,  3 
LDA  1.M377 
AND  3,  1,  SZC 
ADDS  0.  1.  SKP 
ADD  0,  1 
LDA  3.  DDADR.  2 
MOVZR  3,3 
STA  1, 0.  3 
LDA  3,  DTEMP,  2 
JMP  STCHR+1 


,  SAVE  RETURN  ADDR 
,  GET  POINTER 
, CONVERT  TO  ADDRESS 
, GET  WORD  FROM  STORAGE 
i TEST  WHICH  HALF 
,  LEFT  HALF 

.GET  8  BIT  MASK  TO  LEFT  HALF 
,  MASK  AND  TEST 
,  INTO  LEFT  HALF 

,  INTO  RIGHT  HALF 
,  GET  POINTER  AGAIN 
, CONVERT  TO  ADDRESS 
i STORE  UPDATED  WORD 
i RESTORE  RETURN 
,  EXIT 


14  33 
1  4  J  _  • 
14:  > 

14 
1  4  -  ’ 

3  4 

;4_  '■ 

14 

14: 

144u 

1441.. ' 
1442'  • 

1443.. 
14441, 
14450 
14460 
14470 
14430 
1 44  -V. 

1 4500 
14510 
14520 
14530 
14540 
14550 
14560 
14570 
14530 
14590 
14600 
14610 
14620 
14630 
1 4640 
14650 
14660 
14670 
14680 
14690 
14700 

14710 
14720 
14730 
14740 
1 4750 
1  4760 
14770 
1 4780 
147*0 
1 4800 
14810 
1 4820 
1 4830 
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•  MAS!  AC-0  TO  7  BIT?  AND  EXIT 


BIT7-  i'.C  l .  i  177 
AND  1 ,  O 
.,MP  0,  3 


•  SET  >:  HANNEL  8  T u  ONE 


C HNS  LDA  1 , C200 

AND#  1.0,  SNR 
ADD  1 . 0 

.JMP  0,  3 

C  17"7  177 

M377  177400 

C200  200 

0377.  377 


.  GET  200 
, ALREADY  SET? 

.  NO.  ADD  IT  IN 

i  YES.  EXIT 

.7  BIT  MASK 
, LEFT  8  BIT  MASK 
;BIT  8  ON  ONLY 
.RIGHT  8  BIT  MASK 


***•» 


i  ROUTINE  TO  SETUP  DEVICE  UNIT  CONTROL  BLOCK 

,  C(AC3)“AD0R  DEVICE  CONTROL  BLOCK 

i  C<AC0> “CALLER'S  DEVICE  CONTROL  WORD 

;  •**#•»****•»*****##**•***«****••***•••***#•«*#•**•*••** 


OUC  B . 


sue  i . i 

STA  I .  DCMDE,  3 
MOVZL  0,  0,  SZC 
INC  l.l.SKP 
MOVZL#  0.  0,  SZC 
INC  1 ,  1 
STA  1 ,  DMODE.  3 
SUE  2,2 
ADDZL  O,  0,  SZC 
INCZL  2. 2 
MOVZR#  1,1,  SZR 
INC  2.  2 
LDA  1 .  BTAB 
ADD  1, 2 
LDA  1,0.2 
STA  l.DCSR.  3 
MOVZL  0,  0,  SZC 
ISZ  DCMDE, 3 
SUB  2,  2 
MOVZL  0.  0,  SZC 


; CLEAR  AC1 

i ZERO  ASCI  I /IMAGE  MODE  WORD 
, INPUT?  OR  OUTPUT? 
i OUTPUT,  GENERATE  +2.  (NO  ECHO) 

; INPUT,  CHECK  FOR  ECHO 

i MAKE  1  FOR  NO  ECHO,  2  FOR  OUTPUT 
i ENTER  MODE  IN  CONTROL  BLOCK 
> CLEAR  AC2 

; CHECK  WORD/CHAR  FORMAT  BIT 
■WORD  FORMAT,  GENERATE  +2 
, INPUT?  OR  OUTPUT? 
i OUTPUT 

;  GET  BASE  ADDR  BYTE  ROUTINE  TABL 

.HAVE  POINTER  TO  CORRECT  ROUTINE 
; GET  ADDR  ROUTINE 
; ENTER  IN  UNIT  CONTROL  BLOCK 
.ASCII?  OR  IMAGE? 
i  IMAGE 

■  CLEAR  AC2  AGAIN 
i CHECK  CONTROL  WORD  BIT  4 


14.i„. 

14. 

1  <i  .  •: 

1  4 

i  4?  -  ' 

l  4 

I  4-., (.  . 

1  *♦  ■-*'  i  • 

I4v3 
1  *  :  , 
14:'-. 

1 4 '•'*:<  • 
14’:'<: 

1  4  •'  T  ' 
14'-.  ■ 

1 4 

1 5f,o, 

1  SO’.- 
IS' v 
iso:.' 

1504, 

1 5050 

15060 
15070 
15080 
1509u 
15100 
151 10 
15120 
15130 
15140 
15150 
15160 
15170 
15180 
15190 
15200 
15210 

1 5230 
15240 
15250 
15260 
1527'. 
15280 
15290 
15300 
15310 
15320 
15330 
15340 
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INCZL  2,2  iONE,  INCREMENT  &  MULTIPLY  BY  2  15350 

MOVZL  0,0, SZC  i CHECK  CONTROL  WORD  BIT  5  15360 

INCZL  2, 2,  SKP  >  ONE,  INCREMENT  Si  MULTIPLY  BY  2  15370 

MOVZL  2,2  ; ZERO,  JUST  MULTIPLY  BY  2  153S0 

LDA  1,  DMODE,  3  ;  (SET  I/O  MODE  FROM  DUCB  15390 

MOVZR#  1,1,  SZR  i INPUT?  OR  OUTPUT?  15400 

INC  2,2  ; OUTPUT  15410 

LDA  0,  PTAB  .GET  BASE  ADOR  PARITY  ROUTINES  15420 

ADD  0,2  i HAVE  POINTER  TO  CORRECT  ROUTINE  15430 

LDA  0,0,2  > GET  ADDRESS  PARITY  ROUTINE  15440 

STA  0,  DPRTY.  3  > ENTER  IN  UNIT  CONTROL  BLOCK  15450 

DCB1:  LDA  2, DTCBA, 3  ; GET  CALLER'S  OUEUE  BLOCK  ADDR  15460 

LDA  2, TAC3, 2  i RESTORE  AC3  (IE  ADDR  IOX+1 >  15470 

LDA  0, IDPTR, 2  , GET  DATA  POINTER  15480 

STA  0. DDADR, 3  ; ENTER  IN  UNIT  CONTROL  BLOCK  15490 

LDA  0, IDCNT, 2  ; GET  DATA  COUNT  15500 

MOV  0  0  SNR  i IS  IT  GREATER  THAN  ZERO?  15510 

JMP  SETS  , NO,  =>  NO  I/O  TO  DO  15520 

STA  0, DCNT, 3  ; YES,  ENTER  IN  UNIT  CONTROL  BLOCK  15530 

LDA  0, DVCDE, 3  i GET  DEVICE  CODE  15540 

MOVZR#  1,1,  SZR  i  INPUT  OR  OUTPUT  MODE"?  15550 

JMP  SET3  i  OUTPUT  15560 

LDA  2,  .  N10  , GET  I/O  INSTRUCTION  15570 

ADD  0,2  , ADD  IN  DEVICE  CODE  15580 

STA  2, DTEMP, 3  i SAVE  IT  15590 

.JSR  DTEMP. 3  i EXECUTE  IT  15600 

QUIT  i  EXIT  TO  SCHEDULER  15610 

i  15620 

•OUTPUT  I/O  MODE  15630 

i  15640 

SETS:  MOV  3,2  ,  GET  DUCB  ADDR  INTO  AC2  15650 

JSR  @POUT  i GET  1ST  I/O  AND  GENERATE  INSTR  15660 

JMP  SET4  ;  RETURNS  HERE  IF  I/O  COMPLETE  15670 

JSR  DTEMP. 2  >  EXECUTE  THE  INSTRUCTION  15680 

OUTT  ,  EXIT  TO  SCHEDULER  15690 

i  15700 

i  I/O  OPERATION  WAS  COMPLETE  15710 

i  15720 

i  COMPLETED  BECAUSE  DUFFER  CONTAINED  NULL  15730 

.AS  FIRST  CHARACTER  WHILE  IN  ASCII  MODE  15740 

i  15750 

SET4  MOV  2  3  i SET  AC3  «  DUCB  ADDRESS  15760 

SUB  0  0  •  MARK  NON- I NTERRUPT  IOEND  CALL  15770 

SUB  1  1  SKP  i SET  RETURN  AC3  »  0  15780 

i  15790 

i COMPLETED  BECAUSE  INITIAL  WORD  COUNT  WAS  ZERO  15800 

,  15810 

SETS  ADC  1  1  •  SET  RETURN  AC3=-l  15820 

LDA  2  DTCBA  3  ,  SET  AC2  TO  TCB  ADDR.  15830 

STA  1  TAC3  2  ; SET  RETURN  ACS  15840 

MOV  3, 2  i  GET  DUCB  ADDR  INTO  AC2  15850 

JMP  @QEND  I/O  IS  COMPLETE  15860 

i  15870 

POUT  OUT  .SUBROUTINE  POINTER  15880 

O'END  IOEND  .POINTER  TO  IOEND  ROUTINE  15890 

;  1 5900 

NIG  NIOS  0  ,  INSTRUCTION  CONSTANTS  15910 


84 


i  »fc  NK  khI  . 


1 5  9  6  V 

.  TH I i  HANDLER  ALLOWS  FOR  THE  SIMULTANEOUS  OPERATION  OF  15970 

•  A  VARIABLE  NUMBER  OF  ASR-33  TELETYPES  15"'30 

1 5  • 

.  EAOH  TELE  r  >'!-■<-  IS  TREATED  AS  A  SINGLE  DEVICE  OPERABLE  160v 

. IN  AMY  ONE  OF  THREE  MODES  1601<j 

1  INPUT  16020 

^  iNF'UT  <  SUPPRESS  ECHO)  1603v 

3  OUTPUT  16040 

1 6050 
1 6060 

,  IN  MODES  1  AND  2,  INTERRUPTS  FROM  TTO  ARE  IGNORED  1607c 

,  1 6080 
,  IN  MODE  3 1  AN  INTERRUPT  FROM  TTI  CAUSES  TERMINATION  OF  16090 

-OUTPUT  IF  THE  BREAK  CHARACTER  CAUSED  THE  INTERRUPT  16100 

-•ALL  TASKS  WITH  TELETYPE  I/O  ACTIVE  AREA  MADE  DORMANT  16110 

■  AND  IF  THE  TTY  UNIT  WAS  ENABLED  TO  THE  BREA^  1612.0 

■FACILITY,  THE  BREAK  JOB  IS  ACTIVATED.  16130 

•OTHERWISE,  THE  ERROR  RETURN  IS  TAKEN  WITH  THE  8  BIT  16140 

.CODE  OF  THE  CHARACTER  CAUSING  TERMINATION  RETURNED  16150 

,  IN  ACS  1616o 

,  16170 

, *******************************************************  161 80 

;  16190 

ENTRY  POINT  FROM  .  IOX  INSTRUCTION  CALL  16200 

,  AC2  CONTAINS  ADDR  OF  CREATED  QUEUE  BLOCK  16210 

,  ACO  CONTAINS  TTY  CONTROL  WORD  16220 

,  16230 

,  *******************************************************  16240 

i  16250 

TTY  10  LDA  1 , C 377  i GET  AN  8  BIT  MASK  16260 

AND  0.  1  i HAVE  UNIT#  IN  AC1  16270 

LDA  3, TTNO  i GET  NUMBER  OF  UNITS  IN  SYSTEM  16280 

SUBZ#  3. 1, SZC  i REQUESTED  UNIT  EXISTS?  16290 

■JMP  @UNERR  ;N0,  UNIT  ERROR  16300 

LDA  3, TTBLK  i YES,  GET  BASE  ADDR  DUCB  TABLE  16310 

ADD  1,3  ■ HAVE  ADDR  POINTER  TO  DUCB  16320 

LDA  3,0,3  ; GET  ADDR  UNIT  CONTROL  BLOCK  16330 

ISZ  DQBSY,  3  i INDICATE  QUEUE  BUSY  16340 

LDA  l.DTCBA, 3  (GET  FIRST  ENTRY  16350 

MOV  1,1, SZR  i UNIT  AVAILABLE?  16360 

•JMP  IOSTK  ;N0.  GO  STACK  I/O  REQUEST  16370 

i  16380 

TT 10  STA  2, DTCBA, 3  >  ENTER  QUEUE  ADDR  IN  DUCB  16390 

3TA  1, DQBSY, 3  ) INDICATE  I/O  QUEUE  AVAILABLE  16400 

LDA  2, TAC3, 2  •  RESTORE  ADDR  .  IOX+1  16410 

LDA  l.IERTN, 2  ; GET  ERROR  RETURN  ADDRESS  16420 

STA  1 , DERTN, 3  ; ENTER  IT  IN  DUCB  16430 

■JMP  DUCB  .FINISH  DUCB  SETUP  AND  BEGIN  I/O  16440 

UNERR  UNER  ; ADDRESS  FOR  UNIT  ERROR  16450 

DVER  i ADDRESS  FOR  DEVICE  UNIT  ERROR  16460 

i  16470 

.CONSTANT  CONTAINING  THE  NUMBER  OF  TELETYPES  ON  SYSTEM  16480 

TTNO  TTYS  i  164^0 


,  1 650i.< 

,  ♦-if-**'#*'****-***-*.*****-***-*#**#-************'**#***-***-**-**-***  1651  . 

16  52" 

ENTER  HERE  IF  I  '0  ALREADY  IN  PROGRESS  165i' 

(QUEUE  BUSY  SWITCH  SET)  1654" 

C < AC 3)  =AODR  DEVICE  UNIT  CONTROL  BLOCK  1*55  • 

C < AC  2 ) =ADDR  CALLER  S  QUEUE  BLOCK  l©Sc< 

.  C i AC  1 >  =ADDR  QUEUE  BLOCK  CURRENTLY  BEING  PROCESSED  lo?"' 

,  lo5S" 

.  1  65°'. 

.  1 660<  i 

I  OS  TK  MOV  2,0  , SAVE  CALLER  S  QUEUE  ADDR  IN  ACO  1661" 

MOV  1,2  .RESTORE  CURR.  QUEUE  ADDR  TO  AC2  16620 

LDA  1 ,  DFLNK ,  2  .GET  FWD  LINK  1 66ic 

MOV  1,1.  SZR  .END  OF  QUEUE?  1664c 

•JMP  -?  .  NO.  CONTINUE  166510 

STA  0. DFLNK. 2  .YES.  ADD  ELK  TO  END  OF  QUEUE  166c" 

STA  1.DCBSY.3  .INDICATE  QUEUE  AVAILABLE  1667" 

•JMP  SQSCHD  .EXIT  TO  SCHEDULER  1666" 

i  1 66 VU 

,  1670c 

i  16710 

,  *•»*•*■***•**#•******•*•-  **•»******•#*••«••••••******•*«"»**•***  16720 

,  16730 

THE  FOLLOWING  IS  A  TABLE  OF  OET/STORE  CHARACTER  16740 

,  SUBROUTINE  ADDRESSES  16750 

;  16760 

, *-»-*-***-****-»*-»■*-**•******■*-*■***-*****#******•****■#**■*■»•»■»■*•»**■**  1 6770 

BTAB  +1  ,  167S0 

SCHRP  i STORE  CHARACTER  (BYTE  MODE)  16790 

OCHRP  i GET  CHARACTER  (BYTE  MODE)  16800 

3TCHR  i STORE  CHARACTER  (WORD  MODE)  16810 

GTCHR  i GET  CHARACTER  (WORD  MODE)  16820 

■,  1 6830 

,  *•*■*■»■»■*■»■#*■*■***************■***•****■**■******■**•#■**•****•»■****■*  1 6840 

,  1 6850 

,  THE  FOLLOWING  IS  A  TABLE  OF  PARITY  16860 

,  CHECKING/GENERATION  SUBROUTINE  ADDRESSES  16870 

.  16880 

,  *■****■»•»****■*#■**■**#*****#**•***#*■»*****#*■***■»■*■*•***■******■»  1 6890 

<  16900 

PTAB  +1  .  16910 

BIT7  ,  MASK  TO  7  BITS  (INPUT)  16920 

BIT7  (MASK  TO  7  BITS  (OUTPUT)  16930 

TEVEN  .CHECK  EVEN  PARITY  16940 

GEVEN  .GENERATE  EVEN  PARITY  16950 

TODD  ) TEST  ODD  PARITY  16960 

GODD  • GENERATE  ODD  PARITY  16*70 

BIT7  i MASK  TO  7  BITS  (INPUT)  16980 

CHN8  .SET  CHANNEL  3  TO  ONE  (OUTPUT)  16*90 
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4*4#«»4*HHHHH44*4 


t  7<  I  1 ' 


TELETYPE  unit  f>  OhVIi  t  '.  riNTpr-i  rt  OCT  1 . 

1  />:••: 

,  ^  4-fr-b  ,  }  .  *.> 

1  ■’<"••; 

nvi.  0  ,  ADDR  QUEUE  BLQCt  .  O  IF  INACTIVE  I  "vC- 

0  ;  VARIAELE  LOT  AT  I ON  i~07'' 

•JMP  0,  5  !  SUBROUTINE  RETURN  INSTRUCTION  l7t.>8» 

0  ,  ADDR  GET /STORE  CHAR  ROUTINE  1  70*'.  ■ 

10  . DEVICE  CODE  TTI  17100 

0  .DATA  POINTER  ,  ;71i‘. 

0  .DATA  COUNT  17120 

O  ,0-QlJEUE  AVAILABLE  1 -QUEUE  BUSY  171 3>; 

0  ,0-ASCII  MODE  1-1  MAGE  MODE  17140 

0  i ADDR  PARITY  ROUTINE  1715o 

TTIO  ; ADDR  “NEXT  I/O"  ROUTINE  17160 

TT 00+0  , ADDR  INTERRUPT  DATA  BLOCK  (OUT)  17170 

TERM  ; ADDR  LIST  OF  INPUT  TERMINATORS  17180 

TT  1 0+3  ;  ADDR  INTERRUPT  DATA  BLOCK  (INP)  171*'., 

0  .ERROR  RETURN  ADDR  17200 

0  , TELETYPE  OPERATING  MODE  (0-2)  17210 

0  ; -lOBREAK  DISABLED,  ELSE  UNIT#  17220 

i  1 7230 

.TABLE  OF  DEVICE  UNIT  CONTROL  BLOCKS  .  17240 

, FOR  TELETYPES  ATTACHED  TO  THE  SYSTEM  17250 

i  17260 

TTPLK  +1  i  17270 

TTYO  . DUCB  OF  TELETYPE  UNIT  0  1726o 

IFE  TTYS- 2  i  172*0 

EXTN  TTY  1 ,  .  TT  1 1 ,  TT01  i  17800 

TTY1  , DUCB  OF  TELETYPE  UNIT  1  17310 

ENDC  i  17320 

i  173*0 

OIJE  0  ;  ADDRESS  OF  FIRST  ACTIVE  TCB  17400 

,  17410 

,  INPUT  TERMINATOR  LIST  (NO  PARITY)  17420 

,  17430 

TERM:  177  ; DEC  .RUB  OUT  17440 

15  , CR-CARR I AGE  RETURN;  CNTRL  M  17450 

12  ; LF-LINE  FEED  17460 

33  , ESC -ESCAPE  17470 

3  . ETX-END  OF  TEXT; EOM-END  OF  MESSAGE, CNTRL  C  17480 

-1  ,  174*0 
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1  7500 
1  75 1  o 
1 752'.' 


rtOPPESSS  •  OF  THE  DEVICE  HANDLERS 


ORIENTATED 

IN 

LOO I CAL  DEVICE  CODE  ORDER- 

1 75;  ■ 

.ORDER  CAN 

BE 

DETERMINED  BY  THE  USER) 

;  •5.;  . 

»*»*** ****** ******  ***************< 

t*  175--  . 

.  1 7  o'.-v 

HANTS  TTIO 

,  DEVICE  0 

1 7  c  i  o 
1762'. 

IFN  HSR 

176’:- 

EXTN  .  PTR 

,  1 7 

PTR 

,  DEVICE  1 

174.5" 

ENDC 

,  1764  0 

IFE  HSR 

176V0 

I  DEAD 

;  174.60 

ENDC 

.  174.  vy 
,  1770< 

IFN  HSP 

,  1 77 1 0 

EXTN  PTP 

17720 

PTP 

,  DEVICE  2 

17730 

ENDC 

,  17740 

IFE  HSP 

.  17750 

IOBAD 

17760 

ENDC 

17770 
1  7780 

IFN  PRINT 

17700 

EXTN  LPT 

.  17800 

LPT 

i  DEVICE  3 

17810 

ENDC 

17820 

IFE  PRINT 

.  l'SSO 

IOBAD 

1784v 

ENDC 

;  1 7850 

1 7860 

IFN  PLOT 

i  17870 

EXTN  PLT 

i  174:80 

PLT 

,  DEVICE  4 

1 7880 

ENDC 

i  17  ?00 

IFE  PLOT 

.  1761 0 

IOBAD 

>  17620 

ENDC 

i  1 7  63o 

1  17  64'., 

i  17950 

IFN  CARD 

;  1 7960 

EXTN  C DR 

.  17970 

CDR 

.  DEVICE  5 

17980 

ENDC 

,  179«0 

IFE  CARD 

i  1 8000 

IOBAD 

,  18010 

ENDC 

,  1802o 

.  18030 

IFN  DISK 

i  18040 

EXTN  DSK 

i  1805" 

DSK  FO 

,  DEVICE  4 

18060 

ENDC 

.  ISO"'- 
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IFF  DISK 
IOBAD 
ENDC 


1  SOB*' i 
1  SO’- 
IS  10' 
1811- 
1S1  2" 

IFN  a:d  .  ISIS'- 

EX  IN  AIVV  •  lsl-t' 

ADCV  .  DEVICE  7  181' • 

ENDC  ■  181 4" 

IFE  A2D  •  1*1" 

IOBAD  i  1*1: 

ENDC  •  isr- 

,  1  .  >■ 

1FN  TARE  -  1 1' 

EXTN  MTA  .  1822'  ■ 

MIA  ,  DEVICE  10(8)  1 82  J ' 

ENDC  ;  1824 

IFE  TAPE  :  1825" 

IOBAD  .  18240 

ENDC  .  1827(.i 

,  18280 

IFN  DCOM  -  182:"  • 

EXTN  DCOM  i  18300 

DCOM  :  DEVICE  11(8)  18310 

ENDC  )  18320 

IFE  DCOM  i  18330 

I OBAD  '  1 834o 

ENDC  )  18350 

i  13340 

IFN  BRACK  i  18370 

EXTN  DkP  i  18380 

DkP  .DEVICE  12  (8)  18380 

ENDC  ;  18400 

IFE  BRACK  i  18410 

IOBAD  i  18420 

ENDC  i  18430 

i  18440 

IFN  QMUX  i  18450 

EXTN  C'MUX  i  10440 

OMUX  i  DEVICE  13(8)  10470 

ENDC  *  1 3480 

IFE  C'MUX  i  13490 

IOBAD  •  1 3500 

ENDC  '  .  13510 

:  18520 

IFN  IBM  i  18530 

EXTN  IBM  <  18540 

IBM  .  DEVICE  14(9)  18550 

ENDC  <  1 8560 

IFE  IBM  i  18570 

IOBAD  ■  18580 

ENDC  1 3590 

,  18400 

IFN  JRB  ;  DEVICE  15(8)  18410 

EXTN  JRB I  ■  13620 

JRB I  '  13430 

ENDC  -  18640 

IFE  JRB  '  13650 

IOBAD  ■  13660 

ENDC 
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UNCLASSIFIED  USAAVRAOCOM-TR-80-E-3  NL 


IFN  BUTN 
EXTN  BUT  I 

r-  i  i  r  ■ 


DEVICE  16(8 1 


END' 


IFE 

I OBAD 
ENDC 

UTN 

IFN 

3ER I  o 

•DEVICE  17(3) 

EXTN 

8 1 00 
ENDC 

8 1 00 

IFE 

IOBAD 

ENDC 

SER 1 0 

IFN 

RCU 

•DEVICE  20(3) 

EXTN 

I RCUO 
ENDC 

I  RCUO 

IFE 

IOBAD 

ENDC 

RCU 

.  IFN 

KW7S 

, DEVICE  21(8) 

EXTN 

KW7 

ENDC 

KW7 

IFE 

KW7S 

I  OB  AD 
ENDC 

IFN  HDMA1 
EXTN  DMA l 
DMA1 
ENDC 

IFE  HDMA1 
IOBAD 
ENDC 

IFN  HDMA2 
EXTN  DMA2 
BMA2 
ENDC 

IFE  HDMA2 
IOBAD 
ENDC 

HANTE:  BLK  0  ; END  OF  HANDLER  TABLE 

iMUST  BE  IMMEDIATELY  AT  THE  END 
> OF  THE  DEVICE  HANDLER  DEFINITIONS 

IOBAD-  UNERR+2  , IOBAD- 1  MUST  BE  THE  ENTRY  TO  THE 

i DEVICE  UNIT  NUMBER  ERROR  ROUTINE 


1867' 
1 868* 
18/..-" 
187'  ■ 
181 


1671' 
1 8  7  > 

1 

18 


18760 

18770 

18780 

18790 

18800 

18810 

18820 
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.  **•**■*-»*-****##*%**#•**##*#•******■*****##■*##*#***##.#*###**# 

.DEVICE  INTERRUPT  SERVICING  ROUTINE  ENTRY  POINT'S 
■  it  is  A  DlSPATi.H  TADLE  FuR  THE  INTERRUPT  PROCESSOR 
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w  rJ 


NODEV 

ENDC 


19850 

19860 

1987''' 

rss-'1  • 


nodfv 

, C  ODE  25 

1 60t;n  - 

NODEV 

. CODE  26 

1  99  1  • 

NODFV 

, CODE  27 

1  99  2o 

,  I'-y: 

,  1994' 

IFN  QMUX 

OMUX 

•TYPE  4060  MULTIPLEXOR  CODE  30 

1995'  ' 

ENDC 

,  1 9960 

IFE  OMUX 

i  199-7..' 

NODEV 

;  1  99;9i  . 

ENDC 

i  19990 

:  2000U 

IFN  IBM 

i  200 1 <  ■ 

IBM 

; TYPE  4025  NOVA-SYSTEM  360  INTERFACE 

20020 

ENDC 

i  20030 

.  IFE  IBM 

;  20040 

NODEV 

;  20050 

ENDC 

i  2006o 

NODEV 

; NO  INTERRUPT  FOR  IBM2  PART  OF  4025 

20070 

i  20080 

IFN  DPACK 

i  20090 

DKP 

; MOVING  HEAD  DISK  HANDLER  CODE  33 

20100 

ENDC 

i  20110 

IFE  DPACK 

i  20120 

NODEV 

i  20130 

ENDC 

i  20140 

i  20150 

NODEV 

i CODE  34  -  37 

20160 

NODEV 

i  20170 

NODEV 

;  20 ISO 

NODEV 

■  20190 

.  20200 

NODEV 

i  CODE  40 

202 1 0 

IFN  BUTN 

>  PUSH  BUTTON  INTERFACE  (CODE  41) 

20220 

BIJTI 

i  20230 

ENDC 

.  20240 

IFE  BUTN 

i  20250 

NODEV 

i  20260 

ENDC 

i  20270 

,  20280 

NODEV 

(CODE  42 

20290 

IFN  BUTN— 1 

i SECOND  PUSH  BUTTON  INTERFACE  (CODE  43) 

20300 

.  EXTN  BUII 

,  20310 

BUI  I 

;  20320 

ENDC 

i  20330 

.  IFE  BUTN— l 

.  20340 

NODEV 

•  20350 

ENDC 

.  20360 

NODEV 

i CODES  44  -  47 

20370 

NODEV 

i  20380 

IFN  HDMA2 
DMA  2 
ENDC 

IFE  HDMA2 


i 


NOOEV 

encm: 

NO  DEV 
IFE 
TTI  1 
TTOl 
ENDC 
IFN 
NODEV 
NODEV 
END'' 
NODEV 
NOOEV 
IKN 
Sir. ii 


FNDi 
IFE 
NODEV 
ENDC 
NODEV 
NODEV 
NODEV 
NODEV 
NODEV 
NODEV 
NODEV 
NODEV 
NODEV 
NODEV 
NODEV 
IFN 
K  U7 
ENDr 
IFE 
NODEV 
ENDO 
IFN 
EXTN 
IROJ1 
ENDC 
IFE 
NODEV 
ENDC 
IFN 
I  ROJO 
ENDC 
IFE 
NODEV 
ENDC 
NODEV 
NODEV 
NODEV 
NODEV 
DUNG 


SECOND  TELETYPE  INPUT  (CODE  50 > 
.SECOND  TELETYPE  OUTPUT  (CODE  51 ) 


.OF  CONTROL  UNIT  (CODE  54) 


.  )  W7  DEVICE  CODE  70(8) 


RECEIVER  CONTROL  UNIT  »1  (CODE  73 


.RECEIVER  CONTROL  UNIT  #0  (CODE  72 


. DEVICE  CODF  77  (CPU)  IS  HANDLED  ELSEWHERE 
.  IF  THE  POWER  FAILURE  MONITOR  OPTION  XX 06 
WAS  SPECIFIED  IN  THE  HARDWARE  CONFIGURATION 
.  DATA  ON  THE  FARAMRTFR  TAPE 


.■Mo 


♦  •♦if##-*-*##*****-********##*#***#**-****-**#*#*# 

ENTRY  POINT  FOR  ENQU  SYSTEM  CALL 
FORMAT 
ENOU 

address;  address  of  rcb 

<RETURN> 

,  »-»»******»#»*#*#####»**#*#»*»##»#*»**»»»»»** 


ENQ 


ISZ  SYS 
STA  2.  AC 2 
INC  3.  3 
STA  3.  RTN 
JSR  8ENDEQ 
STA  2. QUET 1 
SUB  3.  3 
STA  3.  TLINK,  2 
LDA  3.  RTN 
LDA  3.  -1. 3 
LDA  2.  0,  3 
MOVZL  2.  2,  SZC 
■JMP  ENQ1 
SUBZR  2. 2 
STA  2.  0.  3 
LDA  2.  QUET  1 
JMP  «ENDEQ+1 


i INDICATE  SYSTEM  MODE 
. STORu  32  IN  AC2 
.ADJUST  LINK  REGISTER  FOR  RETURN 
■  AND  SAVE  IT  IN  RTN. 

, GO  CREATE  A  QUEUE  BLOCK 
, TEMP  SAVE  TCB  ADDR 
;  CLEAR  FWD  LINK  OF  QUEUE  ENTRY 

■OBTAIN  ADDR  TO  LOCK  WORD 
.PICK  UP  ADDR  OF  RCB 
.PICK  UP  THE  RCB 
, IS  RESOURCE  CLAIMED 
, YES.  QUEUE  THE  REQUEST 
, NO.  SET  CLAIM  BIT 
.STORE  IT  BACK  IN  RCB 
.PICK  UP  ADDRESS  OF  TCB 
■ENTER  SCHEDULER 


ENTER  TASK  INTO  RESOURCE  DEP  SUSP  QUEUE 
QUEUE  IS  MAI NT  BY  ORDER  OF  PR I  OF  SUSP  TASK 


ENQ1 


EN02 


EN  03 


MOV  2,  2.  SZR 
JMP  ENQ2 
LDA  2.  QUET  1 
ADDOR  2.  2 
STA  2.  0.  3 
JMP  8QSCHD 
MOVR  2.  1 
LDA  2. QUET 1 
LDA  0,  TPTY.  2 
MOVZL  0. O 
MOV  1 . 2 
LDA  1,  TF'TY,  2 
MOVZL  1.  1 
ADC  0,  1 


ARE  THERE  TASKS  WAITING 

YES.  GO  ENTER  TASK  IN  SUSP  QUEUE 

NO.  GO  PICK  IJP  ADDR  OF  NEW  TCB 

REINSERT  CURRENT  CLAIM  BIT 

STORE  BACK  IN  RCB 

RETURN  THRU  SCHEDULER 

HOL  RCB  WITH  CLAIM 

PICK  UP  ADDR  OF  NEW  TCB 

PICK  UP  ITS  PRIORITY 

GET  TRUE  PRIORITY 

AC2=C ( RCB ) 

PICK  UP  PRIORITY  OF  QUEUED  TCB 
GET  TRUE  PRIORITY 
COMPARE  PRIORITIES 


2  U56 '  ■ 

2' IF" 
20F  '  • 

i'.iFw.  . 

206OO 
206 1 
2062i.) 
20630 
20640 
2065*.' 
20660 
20670 
2068U 
206c,0 
20700 
20710 
20720 
20730 
20740 
20750 
20760 
2C770 
20780 
20790 
20800 
20810 
2082i' 
208  30 
20841.1 
20850 
2086O 
20870 
20880 
20890 
20900 
20-s  l  o 
20920 
20930 
20941.) 
20950 
2096*3 
20*70 
209:50 
209*0 
2 1 00 
21010 


()5 


noviu  1.1.3NL  i  IS  NEW  TCB  HIGHER  2102u 

JMP  ENG4  ,  YES i  INSERT  HERE  21030 

MOV  2,3  , NO,  AC3“ A  < QUEUED  TCB)  2104U 

LDA  2,0,3  , AC2”A (NEXT  QUEUED  TCB)  21050 

MOV  2,  2  SZR  ARE  WE  AT  THE  END  OF  THE  STACK  2106'., 

•JMP  ENC'3  .NO,  CONTINUE  210?' 

EN04  LDA  l.QUETl  .YES,  GET  ADDR  OF  NEW  TCB  2103" 

MOVZL  2.2  .SAVE  POSS  CLAIM  BIT  FOR  RCB  REST  210'“" 

ADDR  1,1  .HOLDING  ITIN  INSERT  WORD  211'., 

MOVZR  2.2  .READJUSTING  LINK  CHAIN  ADDR  2111' 

ST A  32.UUET1  .STORE  IT  IN  NEW  TCB  2112, 

STA  1,0.3  .STORE  LINK  INSERT  WORD  211  - 

■JMP  3QSCHD  i  RETURN  THRU  SCHEDULER  2114' 


2 1 1  so 

,  *■*■****#*•*■*•»***»•***•***#*#*•»******■**#*■»*******  21  lt'.1 

21170 

,  ENTRY  POINT  FOR  DEQU  SYSTEM  CALL  2 11S'., 

,  FORMAT  211*0 

DEQU  2120'. 

<ADDRESS>ADDRESS  OF  RCB  21210 

,  <RETURN>  21220 

,  '  21230 

, ********************************************  21240 

21250 

OEQ  ISZ  SYS.  ,  INDICATE  SYSTEM  MODE  2126V 

STA  2,  AC2  .SAVE  IN  AC2  21270 

LDA  2,0,3  .PICK  UP  RCB  ADDRESS  21280 

STA  2.QUET1  .SAVE  IT  212*0 

INC  3.3  .ADJUST  RETURN  ADDR  21300 

STA  3.  RTN  .SAVE  IT  213lv 

JSR  SENDEG  .CREATE  A  QUEUE  BLOCK  AND  PLACE  ITS  2132'. 

JSR  PENDEQ+2  , ADDR  IN  PENDING  JOB  STACK  21330 

LDA  @2 . QUET 1  .PICK  UP  CONTENTS  OF  RCB  2134' 

SUB  1, 1  . INITIATE  NEW  RCB  CONTENTS  21350 

ADDOR  2,  2,  SNR  ,  IS  THERE  A  TASK  QUEUED  2136'. 

JMP  DEQ1  ,  NO*  GO  SAVE  CLEARED  RCB  CONTENTS  2137'.' 

JSR  «ENDEQ+2  YES,  ENTER  TOP  QUEUE  ENTRY  IN  STACK  21380 

LDA  1,0.2  .PICK  UP  CHAIN  ADDR  TO  NEXT  QUEUE  213*' 

ADDOR  1,1  i INSERT  RESOURCE  CLAIM  BIT  AND  2140" 

DE01  STA  @1 , QUET 1  .SAVE  AS  RCB  CONTENTS  2141, 

JMP  8QSCHD  .EXIT  THRU  TASK  SCHEDULER  2142' 

2 1 43' 

OUETl  0  .TEMP  STORAGE  2144, 

ENDED  OBLK  .VECTOR  TO  TCB  BUILDING  ROUTINE  21450 

SHED  .VECTOR  TO  SCHED  ( AC2-A ( PENDING  TCB))  2146" 

JSPSH  .VECTOR  TO  ROUTINEIPUSH  TCB  IN  STAK )  2147' 
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»*••»••••»*•»****••• ••••*•••#*•*••••• •»****•***•*•«•*•• 

M<.  •  r t  iSAijF  r APT  P 

««<,»***•••*•«**•*•*•**•'»•«** 

Wiri  RCV  CHANNEL  STATUS  TABLE 
CST  BIJ  CHAN 

****  ■***■**#*■»***###*■*******##  *##*##*■**#**##***#*#*#  ##*■** 

XMI T  /  RCV  CHANNEL  MESSAGE  TABLE 
Mr  BLP  CHAN 


»**•••*••»*•*•*•«•«•••«*•-»*««•••*•***•*****'»«*•**«•<*** 

STACK  OF  TC 13  ADDRESSES  TO  BE  QUEUED 

JSTK  + 1 
0 

BLK  JOBS 

*•••#••••<*••*•**•****«•••••*•»****•**•**•«•*•••**•*••» 

STACK  OF  TCB  ADDRESSES  IN  PENDING  QUEUE 

QSTK  +1 

0 

BLK  JOBS 

•*••**•***•****•*•**»**•***••*•**•«*•••**•»••«*•*••*••* 

ADDRESS  STACK  OF  CLOCK  QUEUE  ENTRIES 

CSTK  .  +1 
0 

BLK  JOBS 

;  »•••**•*•*••*****•**•**«*•••****••••«»*****«»*•***••*•• 

CLOCK  COUNT  DOWN  INTERVAL  QUEUE 
CLK  BLK  3*JOBS 


PENDING  JOB  TCB  STORAGE  AREA 
BLK  7* JOBS 


21. 


21- 
21  j-  ' 

2 170. 

217;,- 

2172.. 

2177. 

2174* 

2175"' 


2 1  S7v 
21  Sc. 

21*0'' 
2 1 1 '. 
2i°2i: 
21" 

2i  'h.: 
21 

2r-'._... 

21  '"7*. 
2  1  ;'S<. 
2 1  ■-vo,; 


JOB 


ro  r-j  k-  rs»  K*  r-j  r  j  r  j  ro  ro  to 


•system  monitor  stack 

220  <0 
22040 

IFN  SMON 

»  220*60 

177777  ,  END  OF  BUFFER  FLAO 

22060 

MON 

BLK  2*SMON-l 

22'»7 

MON 

0 

.  220oo 

177777  ,  END  OF  BUFFER  FLAO 

220'**o 

ENDC 

*  22 1  •.*>.* 
221  U- 

*#■#■** **■*•* #•*•*•***■*•** *•*■*-***  *•»**♦***♦  «#**«« *•»*-»**********-»« 

2212. 

.  221 

END  .  END  RTOS 

22140 

a**##*****************#*#*-***#*#*#***#****#*##*#******#, 


II  I  11  1  1 

I 

1 

1 

I 

I  I  1  I  I  I  I 


N  N 

NN  N 

N  N  N 

N  N  N 

N  N  N 

N  N  N 
N  NN 

N  N 


I  I  II  I  I  I 
I 
I 
I 
I 
I 
1 

I  I  I  I  I  I  I 
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T 

T 

T 

T 

T 

T 
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*  <!»«■»*  *********  *****■**•»****■*■»■**■***•****■»■*•»*•»■»****■**#•****  ; 


PROJECT  OPS / DOPPLER  HYBRID  NAVI OAT  I ON  SYSTEM 
PROJECT  ENGINEER  JACK  GRAY 

*  INITIALIZATION  PROGRAM  "INIT"  * 


SYSTEM  DEFINITIONS 


OUSR 

JOBS =32 

DUSR 

CHAN=2 

NUMBER  OF  XMIT/  RCV  CHANNELS 

DUSR 

TTYS=1 

DUSR 

FREQ* 1 

DUSR 

SHALT =0 

SYSTEM  RESOURCES  DEPLETED  PARAMETER 

310 

0*>  HALTi  l->  JUMP  TO  USER  SUPPLIED 

320 

PROGRAM  WITH  ENTRY  POINT  ”  SHLT” 

330 

DUSR 

SMON=  30 

SYSTEM  MONITOR 

340 

i  350 

.DEVICE/OPTION  DEFINITIONS  — 

360 

0  ->  NOT 

AVAILABLE 

370 

, 

1  ■>  DEVICE  ON  SYSTEM 

3:30 

i  390 

DUSR 

PWRFL=1 

POWER  FAIL  MONITOR.  AUTO  RESTART 

DUSR 

HSR*1 

DUSR 

HSP*  1 

DUSR 

PRINT=1 

DUSR 

PLOT  *0 

INCREMENTAL  PLOTTER 

440 

DUSR 

CARD=0 

CARD  READER 

450 

DUSR 

D ISK-0 

DISK  (FIXED  HEAD) 

460 

DUSR 

A2D=0 

ANALOG  TO  DIGITAL  CONVERTER 

470 

DUSR 

TAPE=1 

MAGNETIC  TAPE  UNIT 

480 

DUSR 

DCOM-O 

DATA  COMMUMN I CAT I ONS  MULTIPLEXER 

490 

OUSR 

QMUX-0 

TYPE  4060  ASYNCHRONOUS  MULTIPLEXOR 

500 

DUSR 

I  BM=0 

TYPE  4025  NOVA — SYSTEM  360  INTERFACE 

510 

DUSR 

DPACK*0 

.MOVING  HEAD  DISK  HANDLER 

520 

DUSR 

SYNC*0 

TYPE  4015  SYNCHRONOUS  COMMUNICATIONS  CONTROLLER 

530 

DUSR 

JRB*0 

DUSR 

BUTN-0 

DUSR 

RCU*0 

DUSR 

SERI 0=0 

DUSR 

F0ATE=0 

DUSR 

HDMA1 =1 

DUSR 

HDMA2*1 

DUSR 

KW7S= 1 

■NUMBER  OF  KW7'S 

‘>9 


f 

! 

I 


l 


RTOS  INITlAt  l  T I  ON  PROGRAM 

NEC  00207  IJ 

:HIP.  ROUTINE  I?.  USED  TO  INITIALIZE  THE  REAL 
TIME  OPERATING  SYSTEM  IT  IS  USUALLY  DESIRE ABLE 
TO  LEAVE  IT  AVAILABLE  IN  CORE  FOR  DEBUGGING 
PURPOSES  IIS  FUNCTION  <  PR  I MAR I L  V !  IS  TO 
INITIALIZE  STACKS  AND  CLEAR  SWITCHES  IN  THE 
SYSTEM 


•»*•*••*•••*••••***« ****************************** 


titl 

ENT 

EXTN 

extn 

EXTN 

ENT 

EXTN 

IFN 

EXTD 

ENDC 

NREL 

IFN 

ENT 

CTAB 

BLK 

stae 

blk 

TOP 

ENDC 

INIT 

IORST 

INTDS 

LDFNW 

R I N I  T 


I  NO 


INI 


RTC  ,  QSTK ,  OpNT 


RINI  T 
INTP 


CPTY.  PMSK,  QUE  . 
CPNT,  .JSTKi  .JPNT, 
JOB  .  CST  .START 

MON 


CTAB.  STAB,  TOP 

‘DO  , THE  COMMAND  AND  STATUS  TABLES 

MUST  LIE  ON  A  MODULO  256  BOUNDARY 


1 

INTP 

I,  1 


STA 
IORST 
INTDS 
LDA  3,  TOPI 
SUB  0.  0 
LDA  2,  0.  3 
MOV  2,  2.  SNR 
JMP  INI 
MOVL#  2,  2.  3NC 
STA  O. 0. 2 
INC  3.  3 
JMP  I NO 

LDA  .3.  XRTAB 
LDA  2. COUNT +1 
NEGZL  2,  2 
STA  0.0.  3 
INC  3,  3 
INC  2.  2,  SZR 
JMP  -3 


. GET  RTOS  INTERRUPT  DISPATCHER  ADDRESS 
iMAKE  IT  ACTIVE 


.ENTER  HERE  UPON  RE- INITI ALI ZAT ION 
LOCATIONS  TO  BE  ZEROED 

, CHECK  IF  END  OF  TABLE 
iSKIP  IF  HANDLER  NOT  LOADED 

■CLEAR  XM I T/  RCV  CHANNELS 


560 
570 
5.60 
S'-- 1 

<M.I  V 
'-■1 ... 


6  6 
e.70 


7  Ot.j 
710 

7  20 
740 


7*0 
770 
730 
790 
300 
810 
320 
S30 
840 
350 
360 
870 
830 
890 
900 
91  u 


910 
9  30 
940 
950 
960 
97  0 
980 
9C'0 
1000 
1010 
1 020 
1030 
1040 
1050 
1 060 
1070 


ion 


i 

i 

H 


.  h  0.  C  7 
LDA  1. COUNT 
N£G  1,  1 


LDA  2.  STAK1+1 
LDA  3.  SSTAK1+2 

IN'*  3.  3 

sta  2.o, 

add  <>,  2 

INI*  1.1.  SZR 
'MF'  -4 
-  r A  3.  G'-TAK  1 

LDA  0,  C? 

LDA  1, COUNT 

NEG  1 . 1 

LDA  2.  STAK2+1 

LDA  3,  <»STAK  2+3 

INC  3,  3 

IT  A  2.  0.  3 

ADD  0. 2 

INC  1.1,  SZR 

■-IMP  -4 

STA  3,  9STAK2 

ADC  1 , 1 
STA  1 ,  @BRGST 

LDA  3.9STAK3+1 
STA  3,  8STAK3 

IFN  IBM 
JSR  0IBMIN 
ENDC 

IFN  GMUX 
JSR  9QMUX IN 
ENDC 


INITIALIZE  TCB  BLOCK  STACK 


INITIALIZE  CLOCK  BLOCK  STACK 


.SET  AC1  NEGATIVE 
.SET  BREAK  REQUEST  INACTIVE 

,  INITIALIZE  JOB  STACK 


INITIALIZE  TYPE  4023  INTERFACE 


INITIALIZE  TYPE  4060  MULTIPLEXOR 


IFN  SYNC 
JSR  @  T  401* 
ENDC 


INITIALIZE  TYPE  4013  CONTROLLER 


IFN  DPACK 
JSR  «.  DPACK 
ENDC 


INITIALIZE  MOVING  HEAD  DISK  HANDLER 


IFN  SMON 
LOA  0,  EMON 
STA  0,  MON 
ENDC 


.GET  START  ADDRESS  OF  MONITOR 
,  SET  MONITOR  POINTER 


INTEN 
JMP  9  +1 
START 


TURN  INTERRUPT  FACILITY  ON 
,  BRANCH  TO  USER  TASK  AT  START 
TO  BE  DEFINED  EXTERNALLY 


SYSTEM  OPERATING  MODE 
TASK  PRIORITY  STORAGE 
HARDWARE  INTERRUPT  MASK 


» 


OUE 

1 6  S' 

rtc 

.REAL  TIME  CLOCK  ACTIVE  SWITCH 

17C. 

C  UCB 

171., 

TTYO 

.ADDRESS  OF  TTY  UNIT  0  BUCB 

172' 

IFE  TTYS-2 

.  1  7  :«.• 

EXTN  TTY  1 

.ADDRESS  OF  TTY  UNIT  1  TiMCIi 

1  74. 

TTY  1 

,  ; 

ENDC 

,  : 

IFE  TTYS- 5 

.  l . 

,  17::' 

EXTN  TTY  1 

■  ADDRESS  OF  TTY  UNIT  1  DUC B 

1  7  ' 

TTY1 

.  1  Si.".. 

EXTN  TTY2 

.ADDRESS  OF  TTY  UNIT  2  DIJCB 

1*1' 

TTY2 

.  182'.' 

ENDC 

1 

.  1  840 

IFN  HSP 

■HIGH  SPEED  PAPER  TAPE  PUNCH 

1  35., 

EXTN  PTF'l 

1 86U 

F'TPl 

1370 

ENDC 

.  1830 

18  SO 

IFN  HSR 

.HIGH  SPEED  PAPER  TAPE  READER 

1 900 

EXTN  PTR1 

,  1910 

PTR1 

i  1920 

ENDC 

i  1930 

i  1940 

IFN  PRINT 

;  LINE  PRINTER 

1950 

EXTN  LPT 1 

i  I960 

LPT  1 

,  1970 

ENDC 

i  1980 

i  1990 

IFN  PLOT 

i INCREMENTAL  PLOTTER 

2000 

EXTN  PLT1 

;  2010 

PLT1 

.  2020 

ENDC 

i  2030 

i  2040 

IFN  A2D 

.ANALOG  TO  DIGITAL  CONVERTER 

2050 

EXTN  ADC  I 

i  2060 

ADC1 

.  2070 

ENDC 

,  2080 

,  2090 

IFN  CARD 

, CARD  READER 

2100 

EXTN  CDR1 

!  2110 

CDR1 

,  2120 

ENDC 

,  2130 

;  2140 

IFN  DISK 

.FIXED  HEAD  DISK 

2150 

EXTN  DSK1 

.  2160 

DSK I 

,  2 1 70 

ENDC 

i  2180 

,  2190 

IFN  TAPE 

i MAGNETIC  TAPE 

2200 

EXTN  MTA1 

i  2210 

MTA1 

i  2220 

ENDC 

i  2230 

i  2240 

IFN  DCOM 

iDATA  COMMUNICATIONS  MULTIPLEXER 

2250 

m2 


EXTN  DC Ml 
DC  M 1 
END'. 

IFN  JRB  .  JR6  UNIT  NUMBER  0 

EXTN  JRBl 

,.iF  L 

fnc.c 

IFN  iRB-1  ;  .JRB  UNIT  NUMBER  1 

EXTN  .JRB  2 
JFT-J 

END' 

IFN  BUTN  . PUSH  BUTTON  BOARD  #1 

EXTN  BUT  1 
PUT  1 
ENDC 

IFN  BUTN-1  , PUSH  BUTTON  BOARD  *2 


EXTN 

BUT  2 

BUT2 

ENDC 

IFN 

RCU 

EXTN 

.  RCUO 

RC.UO 

ENDC 

IFN 

RCU-1 

.  EXTN 

RCU1 

RCIJ1 

ENDC 

IFN 

SERIO 

EXTN 

.  SERO 

SERO 

ENDC 

IFN 

SERI 0-1 

EXTN 

SERI 

SERI 

ENDC 

IFN 

KW7S 

EXTN 

KUCB 

KUCB 

ENDC 

IFN  HDMAI 
EXTN  DMIQ 
DM19 
ENDC 

IFN  HDMA2 

EXTN  DM20 

DM20 

ENDC 


2  3 

240'.' 

24 1C 

242 

24i>. 

244'. » 

2450 

2460 

2470 

2480 


/ 
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O 

. TABLE  END  INDICATOR 

2490 

2500 

2510 

2520 

FROST 

"  HR 

.  IV  -  ' .  '  HAP:  STORAGE 

-S4ij 

■ 

254  . 
257u 

COUNT 

.JOBS 

. NUMBER  OF  TASKS  ALLOWED 

CHAN 

. NUMBER  OF  XMIT/  PCV  CHANNELS 

2580 

■vit.:.-,  . 

Xft  TAP 

C  ST 

,  XMIT/  RCV  CHANNEL  ACTIVE  TABLE 

C  7 

7 

1 

26 1 0 
262'.’ 

,■  5 

3 

, 

26  3.J 

:  TA.  1 

QPNT 

■JOB  STACK  VARIABLES 

264i.. 

2650 

JOE: 

, 

2660 

OSTK 

2670 

-;.TAK2 

CENT 

i CLOCK  STACK  VARIABLES 

2680 

2690 

CLK 

, 

2700 

CSTK 

, 

2710 

STARS 

•JPNT 

.STACK  POINTERS 

2720 

2730 

JSTK 

, 

2740 

IFN  DPACK 

2750 

2760 

EXTN  DKPO 

, 

2770 

OPACR 

DKPO 

i MOVING  HEAD  DISK  INITIALIZATION  SUBR 

2730 

ENDC 

27*0 

IFN  IBM 

> 

2800 

2810 

EXTN  IBMO 

2820 

I  PM  IN 

I BMO 

i TYPE  4025  INITIALIZATION  SUBROUTINE 

28  30 

ENDC 

i 

2840 

IFN  QMUX 

' 

2850 

2860 

EXTN  QMXO 

, 

2870 

OMI.IX  IN 

OMXO 

i  TYPE  4060  MUX  INITIALIZATION  SUBR. 

2860 

ENDC 

2890 

IFN  SYNC 

’ 

2900 

2910 

EXTN  TSNO 

, 

2920 

T  4015 

TSNO 

i TYPE  4015  INITIALIZATION  SUBROUTINE 

2930 

ENDC 

, 

2940 

END  INIT 

2950 

2*60 
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***** 

***** 

***** 

* 

*  * 

* 

*  ♦** 

***** 

***** 

*  * 

* 

* 

***** 

* 

***** 

*•»***»*###***#*•»*##*************«**; 

*  GPS  SYSTEM  I/O  PROGRAM  * 

OPS  DATA  IS  ACCESSED  THROUGH  A  16  BIT  PARALLEL  I/O 


MEMORY  ACCESS  (DMA)  IT  IS  CONTROLLED  BY  THE  EXECUTIVE'S 
INTERRUPT  SYSTEM 


titl  jo  r 
NREL 

ENT  DMA1,  DM10 

EXTN  QUIT,  IOEND,  DISN 

EXTD  SERV,  STAk 

ADDRESS  OF  DEVICE  INITIALIZATION  ROUTINE 

GOPR  IOXIN 

, INTERRUPT  SERVICE  ROUTINE 

DMA l :  JSR  «  SERV 
177777 
0 
0 
0 
0 
0 
0 
0 

GBADR  GBLK 


LDA  3.  GTCBAi  2 
MOV  3,3,  SNR 

■JMP  ERR'  1 
-JMP  I  TERM 

.DEVICE  INITIALIZATION  ROUTINE 

IOXIN:  LDA  3, OBADR 

ISZ  GQBSY,  3 
LDA  l.OTCBA,  3 
MOV  1,  1.  SZR 
•JMP  t.  STAK 
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NF.  <  T 


STA  2.  GTCBA,  3 
STA  1  GQBSY,  .3 
STA  0,  GAD.  3 
I- PA  2,  TAC3.  2 

I  PA  i ,  iertn.  3 
SI  A  1  GERTN,  3 

:  idfi'r.  ;• 

Si  A  1,  ADA  DR.  3 
3 T  A  1,1.3 
LDA  1 ,  I GCNT •  2 
STA  1  GCNT,  3 
LDA  1  GENT.  3 
NEC  1.  1 
STA  1 .  GCNT,  3 

N 1  OC  DO"  2 

L.DA  0.  GDADR.  3 
DGA  0.  DCC'2 
LDA  0,  GCNT.  3 
DOBS  0,  DCC2 
QUIT 

NIOS  DCC2 

ERR:  LDA  2,  DIDBO.  2 

JMP  @  +1 
DISN 

IBAD:  LDA  3,  GTCBA.  2 

LDA  1 ,  GERTN.  2 
STA  l.TPC.  3 

ITERM:  LDA  3,  GTCBA.  2 

STA  0.  TAC3,  3 
LDA  O.DIDBO,  2 
■JMP  @  +1 
IOENB 

GBLK  0 

0 

JMP  0.  3 
0 

DCC2 

0 

0 

0 

0 

0 

NEXT 
DMA 1+3 

0 

0 

0 

0 
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DM  1  0=GBLK 

GTCBA=0 

DCC2='" 

ODADR’? 

im:nt«6 

OOBSY=7 

DIBBO-13 

GERTN-16 

IDPTR«2 

IGCNT-3 

IERTN-4 

T AC 3-5 

TPC=>6 

GAP“ 1 4 


****■•***-***-»***#*■**#■****■***#*#**■)*■*###********#** 


DD 

0  pp 

pp 

t. 

PEE 

PR 

D  D 

0  0  P  P 

p  y 

i 

F 

K  K 

D  D 

U  0  PP 

pp 

L 

_EL 

KK 

0  n 

0  •;»  p 

p 

L 

t 

R  R 

fr> 

i  P 

LLL 

EEE 

R  R 

*•**«-*«•»(>*  »*•!■* -*  ****•****.*****■********•******•»■»***■*  , 

*  AN/ASN-12S  DOPPLER  NAVIGATION  SYSTEM  I/O  PROGRAM  * 


DOPPLER  DATA  IS  ACCESSED  THROUGH  THE  ARINC  INTERFACE 
AND  LOADED  VIA  256  WORD  BLOCKS  THROUGH  DIRECT  MEMORY 
ACCESS  i DMA )  IT  IS  CONTROLLED  BY  THE  EXECUTIVE  S 
INTERRUPT  SYSTEM 

TITL  PATTI 
NREL 

ENT  DMA2.  DM20 

EXTN  QUIT,  IOEND,  DISN 

EXTD  SERV,  STAR 

-ADDRESS  OF  DEVICE  INITIALIZATION  ROUTINE 
DOPR  IOXIN 

■  INTERRUPT  SERVICE  ROUTINE 

0MA2  .JSR  SERV 
177777 

0 

0 

0 

0 

o 

0 

0 

DBADR  DPBLK 


LDA  S,  DTCBA,  2 
MOV  3,  3,  SNR 
■JMP  FOUL-1 
•JMP  I  TERM 

■DEVICE  INITIALIZATION  ROUTINE 

IOXIN  LDA  3.  DBADR 

ISZ  DQBSY, 3  ,  SET  QUEUE  BUSY 

LDA  1,  DTCBA.  3  ;  GET  LINK  WORD 

MOV  l,  l.  SZR  ,  IS  DEVICE  BUSY 

-IMP  a  STAK  j  YES 
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nex  r 


t.TA  2.  DTCBA. 

•-TA  t  .  DOBz-i. 
x  TA  n  -  An.  3 

u  a  .  .  .. 

:  aa  t  h'  a-tm,  ; 

' r A  I  PERTN.  3 
LDA  1  .  IPPTR.  2 
-.TA  1.  DDADR  3 
ST  A  1.1.3 
LDA  1.  I  DC  NT.  2 
ETA  1 , DCNT ■  3 
l.DA  1.  DCNT,  3 

NEC  1,1  .NEGATE  DATA  COUNT 

STA  1,  DCNT,  3 

NIOC  DCC1 

LDA  0.  DDADR,  3 
DOA  0. DCC1 
LDA  0,  DCNT,  3 
DOB  0,  DCC  1 
LDA  0,  SAD.  3 
DOC  0.  DC  Cl 
NIOS  DCC 1 

QUIT 

NIOC  DCC1 

FOUL:  LDA  2.DIDB0,  2 
JMP  @  +1 
DI3N 

1BAD  LDA  3,  DTCBA.  2 
LDA  1 , DERTN, 2 
ST  A  1,  TPC.  3 

I  TERM  LDA  3,  DTCBA.  2 
STA  0.  TAC3.  3 
LDA  0.  DIDBO.  2 
JMP  ®  +1 
IOEND 


DPBLl' 


0  . DTCBA 

0 

JMP  0,  3  , 

0 

DCC:  1  .  DVCDE 

0  DDADR  (DATA  ADDRESS) 

0  .DCNT  (DATA  COUNT) 

0  ; DQBSY 

0 

0 
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NEXT 

dm  a: 


BN  I  OR  (NEXT  I/O  ADDRESS' ) 

D I  DEO  (ADDRESS  OF  INTERRUPT  DATA) 


: 


DERTN  (ERROR  RETURN) 
DMO  DE 


•VA  =  '  ■ 
P'/C.  CE»4 
DOT.  ’=46 

ddadr=-? 

DCNT  =*-• 
D0BSY=7 
D I DBO= 1 S 
DN I 0R= 1 2 
DERTN= 1 6 
IDPTR=2 
T  DC  NT=3 
IERTN=4 
TAC3=5 


PARAMETERS  FOR  COMMuN  BLOLK  M‘  (POINT) 


OF  PT 

=  1  ' 

1" 

DUSR 

ISP 

=0 

.  1  1 

OIJSR 

IZN 

=ISP+l 

.  i ; 

DUrR 

»7L 

—  I /N+ l 

,  1  3 

*  I  -  P 

1N2N 

L  +  l 

.  1  - 

LiU-R 

XL  AT 

- I M/ N+ 1 

.  :  5 

OU;.R 

XI. ON 

*  x  i  h  T  ♦  2 

D1  r;.R 

XN 

-XLON+2 

i 

tiU-R 

E 

-xn+2 

tin '-■fit 

HTWGD 

*Ef2 

i 

Wlfit 

GE 

=H1MGD-M 

, 

DUS-R 

GN 

=GE+2 

. 

titl 

FORMT 

•  *  - 

*  <*■+■+<>■#■*  *■+■+#■* *4 •**•** *■+* *****-#■*-♦*■»#■#**■»■»■■*  -#■**■*•*** «•»*** *«***-  **«*»«** 


FORMATTER  R  0  U  T  1  N  E  5 

***tt#»»>*##**4**^HHHHHJ*4****#4****4**#**#*##<HHHHHf**HHHJt*4****# 
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,  :.oo 

THIS  SOFTWARE  PACKAGE  CONTAINS  MANY  SUBROUTINES  USEFUL  ?lv 

IN  DECODING  /  PACKING  OF  ASCII  INPUT  /  OUTPUT  BUFFERS  .  32i.' 

.  'i  30 

.  340 

AS  A  SYSTEM  RESOURCE,  THE  FORMATTER  MUST  BE  FIRST  ,  350 

" LOCKED"  BY  THE  USER  WITH:  ;  360 

,  370 

,  30*'. 

ENQ  , 

FMLOK  .  4<  "  • 

!RETURN>  .  4  1- 

4^1-. • 

.  4  30 

THEN  THE  USER  MAY  CALL  ANY  ROUTINE  IN  THE  PACKAGE  440 

450 
.  46»i 

47‘. 

WHEN  THE  USER  IS  FINISHED  WITH  THE  PACKAGE.  HE  MUST  480 

RELEASE  IT  WITH  ,  4r"‘ 

.  5i.ii.* 

;  5 1 0 

DQU  .  520 

FMLOK  .  530 

:.'RETURN>  540 

,  550 

.  560 

.  57<‘ 

EACH  ROUTINE  USED  MUST  BE  DECLARED  AS  AN  EXTERNAL  580 

NORMAL  <  EXTN)  IN  THE  CALLING  PROGRAM  TO  SET  UP  LINKAGE  5*0 

ADDRESSES  ALSO.  REGISTERS  ARE  NOT  SAVED  ON  RETURN  600 


6 1  0 
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THE  INPUT 

AND  OUTPUT  FORMATTING  ROUTINES  AND  THEIR 

640 

CAUL  IN>.  SEOuENCES 

ARE  GIVEN  IN 

THE  FOLLOWING  LIT 

T  I NGS 

* 

650 

f»|T 

FORM! 

ENT 

I  SET. 

BYT  GBYTE. I 

BAC.  I  CUM.  I  LOT.  I 

INT.  I 

PTR 

ENT 

I  f\ .  1 

J  SET . 0  BYT. 0 

INT  0  FLT . 0  MOV 

ENT 

PAD 

j  LOC 

... 

ENT 

L LMHOF 

SPHERE 

7,  1,  . 

ENT 

GNXT  INBND. P»TA 

/ 1  o 

ENT 

I  SET. 

I  BY T  GBYTE, 

I  BAC.  I  COM.  I  LOT. 

1  INT. 

IPTR 

T  2.  *  ' 

ENT 

IFLT. 

GNXT,  INBND, 

OSET,  OBYT.  OINT. 

OFLT, 

UMOV  , 

OPAD 

7  2:i. 

ENT 

OLOC. 

T'BUF 

740 

EXTN 

ENOU, 

DEOU.  FMLOI 

7S-‘. 

EXTD 

MEMR, 

MG2UM,  UM2GP 

HM2MG.  GP2UM  . 

7M 

NREL 

7~V 

COMM 

PT  17 

7  Si 

ZREL 

790 

!  SET 

I  SET 

300 

I  PVT 

I  BYT 

310 

GBYTE 

GBYTE 

320 

I BAC 

I  BAC 

330 

I  COM 

I  COM 

340 

I LOC 

I  LOC 

350 

I  INT 

I  INT 

360 

IPTR 

I  F'TR 

370 

IFLT 

I.  FLT 

380 

GNXT 

GNXT 

8*0 

INBND 

INBND 

900 

OSET 

0.  SET 

910 

OBYT 

0  BYT 

920 

OINT. 

0.  INT 

9  30 

OFLT 

0  FLT 

940 

OMOV 

0  MOV 

950 

OPAD 

0  PAD 

960 

OLOC 

0  LOC 

970 

SPHERE 

0 

930 

L  L  MODE 

0 

990 

NREL 

1000 

***♦**■***•*#*******##*■****■*+******#********■****-***#********■***** 

SUBROUTINE  I  SET  -  THIS  ROUTINE  SETS  UR  THE  BYTE  POINTER 
TO  BE  USED  IN  THE  PROCESSING  OF  INPUT  BUFFERS  IT  MUST  BE 
CALLED  BEFORE  ANY  INPUT  FORMATTING  ROUTINE 
THE  LAST  BYTE  OF  THE  INPUT  BUFFER  MUST  BE  A  BINARY  ZERO 

AGO  =  STARTING  BYTE  ADDRESS  OF  BUFFER 
J SR  £1  SET 


SET 

STA 

0,  BYT  A 

.  STORE  BYTE  POINTER 

SUB 

1.  1 

.  RESET  THE  RUNNING 

STA 

1 ,  RIJNB 

.  BYTE  COUNT 

..IMP 

0,  2 

.  RETURN 

1 0 1 0 

1020 
10  so 
1040 
1050 
1 06'.* 
107*  ■ 
1 08o 
1 09«.> 
1  100 
1110 
1  !  20 
1  1  'm- 

1  1  40 
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FORMT  =  I  SET  .  il'"‘ 

,  ♦  •if***.********-**-**************'******#******#.*'**#********'********  1  1-." 

,  i  117" 

SUBROUTINE  I  PTR  -  THIS  ROUTINE  WILL  UPDATE  THE  INPUT  BYTE  ;  1180 

POINTER  OF  IN  AN  INPUT  CONTROL  SLOCK  TO  THE  CURRENT  VALUE  .  1 1'" 

1 

AC  2  «  INPUT  CONTROL  BLOCK  ADDRESS  •  l  — l*-' 

OCR  91  PTR  -  ILL. 

1 2  > 

I  PTR  LDA  0. BYTA  .  GET  THE  CURRENT  BYTE  POINTER  .  1240 

STA  0.1.  L  ;  STORE  IT  IN  THE  CONTROL  BLOCK  ,  125u 

..IMP  0.  3  i  1260 


*•*■***•**********■**#•***■**»■*•*•**-**•»•*****•*•*•*•**■*•#'****•*******•*■***•»■**** 


SUBROUTINE  GBYTE  -  *THI3  IS  USED  INTERNALLY  TO  GET  THE 
NEXT  BYTE  IN  THE  INPUT  BUFFER 

JSR  OBYTE 

LEND  OF  LINE  RETURNS 

‘NORMAL  RETURN' 


GNXT 

SUB 

1,  1 

i  GENERATE  A  0 

•JMP 

♦  2 

,  GET  PAST  NEXT  INSTRUCTION 

GBYTE 

SU6ZL 

1.  1 

.  GENERATE  A  1 

LDA 

2.  BYTA 

;  LOAD  BYTE  POINTER 

MOVZR 

2.  2 

i  SHIFT  FOR  WORD  ADDR 

LDA 

0,  0,  2 

;  GET  BUFFER  WORD 

MOV 

0.  0.  SZC 

,  WHICH  SIDE? 

MOVS 

0.  0 

,  SWAP  FOR  LEFT 

ANFNW 

0 

.  MASK  OUT 

177 

i  7  BIT  MASK 

MOV 

0,  O.  SNR 

;  IS  THE  BYTE  ZERO  ( END-OF-L I NE  >  ? 

JMP 

0.  3 

i  EOL  -  EXIT 

ISZ 

BYTA 

,  BUMP  ADDR 

ISZ 

RUNB 

i  BUMP  COUNT 

MOV 

1,1.  SNR 

,  IS  IT  A  GBYTE  ENTRY 

■JMP 

1. 3 

,  NO.  NORMAL  RETURN 

LDFNW 

1 

;  LOAD  ASCII 

" 

i  BLANK 

SUB# 

1 . 0,  SNR 

;  IS  THE  BUTE  A  BLANK? 

JMP 

GBYTE 

i  YES  -  GET  ANOTHER  ONE 

JMP 

1. 3 

;  NORMAL  RETURN 

1270 
1 280 
1 230 
1  LOO 

l31v 

1320 

1330 

1340 
1 350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 


**4************************************************************ 

SUBROUTINE  I  BAG  -  THIS  ROUTINE  BACKS  UP  THE  INPUT 
BUFFER  BY  ONE  BYTE 

■JSR  I  BAC 


1 5  7 
1 580 
1 590 
1 600 
161v 
1620 
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I  PAC 


16  S' 


LDA 

0,  RiJNB 

,  OET  RUNNING  BYTE  COUNT 

,  164c 

MOV 

Ci.  0.  S  NR 

,  ALREADY  ZERO'- 

1 6  5 

JMP 

Ci,  3 

.  YES  -  RETURN 

i  1 66 

DSZ 

RIJNB 

.  DECREMENT 

167 

NOP 

RUNNING  BYTE  COUNT 

,  1 66 

DSZ 

BYTA 

.  AND 

,  1 69 

NOP 

BYTE  ADDRESS 

<  170 

■JMP 

" 

■  RETURN 

i  7  1 

I  bvt=,: 

B  <  IP 

1  ’2 

»  'T*<HHHHMTTHMf»44<ti *4Hnnr« 

-»«****-*****4HHM*-*-fr#  ***<**■****■****■#•*■**•***■#* 

ITS.' 

174. 

bUBRC'UT I  ME  I 

COM  - 

THIS  ROUTINE  SCANS  TO  THE  NEXT 

OMMA 

1  7  C '  ■ 

IN  THE  INPUT 

BUFFER 

17c  .. 

R  J  <:  ON 

17  ::.u 

1  T-7'!.' 

[  rriM  -TA 

3,  1912 

•  STORE  RT A 

ISC). 

.J=.R 

GBYTE 

.  OET  BYTE 

ISO. 

JMP<2 

IRT2 

.  EOL  RETURN 

18... 

LDA 

1 .  C IJMMA 

,  OET  ASCII  FOR  COMMA 

la  30 

3UB 

0,  1,  SZR 

.  IS  THE  BYTE  A  COMMA? 

1040 

.JMP 

I  COM+l 

,  NO  -  GET  ANOTHER  BYTE 

1  S5u 

rsz 

IRT2 

■  YES  -  RETURN 

1 860 

.JMP® 

IRT2 

1870 

IRT2  BLK 

I 

1880 

RIJNB  BLK 

t 

1890 

BYTA  BLK 

1 

1900 

**•»**#**•»********************#■»***#**■***•»*##<*##**#*#**###*#*** 

SBUROUTINE  I  INT  -  THIS  ROUTINE  RETURNS  THE  NEXT  INTEGER 
VALUE  FROM  THE  INPUT  BUFFER  IF  END  OF  LINE  WAS 
REACHED.  THE  POL  RETURN  IS  TAKEN  WITH  THE  VALUE  UP  TO  THE 
POL  IN  AGO  IP  AN  INVALID  CHARACTER  WAS.  ENCOUNTERED.  THE 
VALUE  "P  TO  THE  IN'.  AL  ID  CHARACTER  IS  RETURNED  IN  ACO  AND 
A”  MAR  tHF  INVALID  CHARACTER. 


|Cp  r  *  1 1 

c-sjtf-rc-LINE  RETURN' 

r.^rt  -'ir-'-jc; £,i*o  =  <  F  -  ?  N". -I: -r  r-  !  ELD 


1910 

1920 

1930 

1940 

l^fr 

1 

r*7 

19b'. 

1 

-vOO 

201 


-TORE  RETMf.r, 

if  r  ■  <  T  FT  EL.'  *-*';•  E  L'Jh  I  •'J*  •  • 

Ft  it_  —  F  i  r  *  .rvN 
1  Nv^i.  !  1!  '  1 

ji.ir-ip  R'  i 

IRr  :  •  E  u  ’  -  ■ 

•  .fxj'.’F  K  •  111  i  N  i  EUER  2  1  i  l.' 

■/ E  Ht:  RE  r  ljl  ■  *  -  •  *~ 

•  u  'FMAL  RET*  'kN 
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i 

i 

k 


n r  *  +  '* 


i  .UN 


„  -  v-v-  •■**•*-»•*-*»  *+  '  '>«*** 


*  M  .*  -P  «  * 


■  TINE 

...  fMptjT  BUf  •'*'•< 
i  hF  *"  1  (t 


i  ■:  (•-.  | NtXf 
.  _  i.«n  I  WVhL  * 

( IM<  |l  hTEE' 


dle- 


jijF 

jpipf* 

lda 

ijE* 

JMP 

ISZ 

USR 

..IMP 

LDA 

S>  IB 

•JMP 

LDA 

SUB 

■JMP 

TEST  FOR  NI 
LDA 
LDA 
..ISP 
•JMP 
SUB 
MOV 
SUE: 
FLO 
FNM 
DST 

LDA 

MOV 

..IMP 


1 

■JlK’-. 

PR 

r  i 

FRMUL 
1  DFLG 
l . SFLG 
OB-'TE 
IRT3 
1,  MINUS 
0.  1 ,  SIR 
NXT C+2 
SFLG 
GBYTE 
EOFX 
\ ,  DECPT 
0,1,  SNR 
DPNT 
1 , COMMA 
0.  1,  SNR 
EOF* 

JMERlC  INPUT 

1 .  B60 

2,  B71 
INEND 
ERRX 
1.0 
0,  1 
O,  0 


DIGIT 
2,  DFLG 
2,  2,  3ZR 
FPART 


v f.-p  rnPN  i DR 

. 

•»c  i 

reset  the 
s-UNNINO 
RESET  THE 

fractional  al.lum 
I  PAD  floating 
POINT  ONE 

store  to  fractional 
multiplier 

RESET  DECIMAL  POINT  FLAG 
RESET  SIGN  FLAG 
get  FIRST  BYTE 
ENO-GF-LINE  EXIT 
IS  IT  A 

minus  sign? 

PROCESS  CHARACTER 
BUMP  SIGN  FLO 
GET  NEXT  BYTE 


IS  IT  A 

DEC  IMAL  POINT  J 
,  yes  '  SET  FLAG 
.  IS  IT  A 


,  COMMA? 

,  yes  -  END  OF  FIELD 


SET  LOWER  LIMIT 
■SET  UPPER  LIMIT 
TEST  IE  BYTE  <ACO> 
NO  -  ERROR  EXIT 
FORM  LEGAL  DIGIT 
GET  FLOATING 
POINT 

REPRESENTATION 


IN  BOUNDS 


•,  STORE 

i  DECIMAL  POINT 
SET'* 

:  yes  '  DO  FRACTION  PART 


2  .'40 


24i  ’0 
24  iO 
2420 
2430 
2*40 
2450 
2460 
2470 
2  430 
fcA--#n 
230'  • 
2310 
2520 
2530 
2540 
2550 
2560 
257  u 
2530 
25°  0 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
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2680 

INTEGER  PART 

26vl 

OLD 

.  LOAD 

2700 

ANS 

.  CURRENT  ANSWER 

2710 

FMPNM 

.  MULTIPLY  BY 

2720 

FD10 

.  10D 

2730 

FADNM 

i  ADD  ON 

2740 

DIGIT 

CURRENT  DIGIT 

2750 

DST 

.  STORE  ANSWER 

2760 

ANS 

277'. 

•JMP 

NX  TO 

.  GET  NEXT  CHAR 

2780 

FRACTION  PART 

27'V,-, 

FPART 

DLD 

.  LOAD 

230 

FRMUL 

FRACTIONAL  MULTIPLIER 

231'. 

FDVNM 

.  DIVIDE 

2320 

FDIO 

BY  10D 

2330 

TST 

.  STORE  THE  RESULT 

234. , 

FRMUL 

2850 

FMPNM 

.  MULTIPLY  WITH 

2860 

DIGIT 

CURRENT  DIGIT 

287'.' 

FADNM 

.  ADD  RESULT  TO 

2380 

FR 

FRACTION  PART 

2890 

DST 

.  STORE  THE 

2900 

FR 

RESULT 

29 1 0 

JMP 

NXTC 

,  GET  NXTCHAR 

2920 

DPNT 

LDA 

1 , DFLG 

i  I S  FLAG 

2930 

MOV 

1.1.  SZR 

ALREADY  SET? 

2940 

JMP 

ERRX 

.  YES  -  ERROR  EXIT 

2950 

ISZ 

DFLG 

,  NO  -  SET  FLAG 

2960 

JMP 

NXTC 

i  GET  NEXT  CHAR 

2970 

ERRX 

DSZ 

IRT3 

;  INVALID  INPUT  ERROR 

2980 

MOV 

0.  2 

i  SAVE  THE  INVALID  CHARACTER 

2990 

NORMAL  EXIT 

3000 

EOFX 

DLD 

,  LOAD 

3010 

ANS 

.  INTEGER  PART 

3020 

FADNM 

.  ADD 

3030 

FR 

■  FRACTION  PART 

3040 

LDA 

3.  SFLG 

;  IS  MINUS  SIGN 

3050 

MOV 

3.  3.  SZR 

FLAG  SET? 

3060 

FNG 

;  YES  -  NEGATE  THE  RESULT 

3070 

LDA 

3.  IRT3 

3080 

■JMP 

2,  3 

3090 

ANS 

BLK 

2 

3100 

FR 

BLK 

2 

3110 

DIGIT 

BLK 

2 

3120 

FRMUL 

BLK 

2 

3130 

SFLG 

BLK 

1 

3140 

DFLG 

BLK 

1 

3150 

MINUS 

3 1 60 

DECPT. 

56 

3170 

FBI  O' 

10  0 

3130 

FI 

1  0 

3190 

B7I 

71 

320o 

B60 

60 

3210 

IRT3 

BLK 

1 

3220 

COMMA 

", 

3230 
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,  *****  ****^**  ****■***■«•*•»**•**  ************************************* 

;  324" 

;  325" 

'{ »PF 

'OUT  T  NE 

'•F T 2  -  THIS  IS  AN  INTERNAL  ROUTINE  TO  GET  TWO 

i  324.0 

,  iW 

E'lUT  IVE 

Asrn  BVTFS  AMD  PACK  THEM  INTO  ONE  WORD 

;  327i.. 

.»  Tv 

r»ET:' 

-  INTERNAL  ROU1INE  IMMEDIATELY 

.  I  2  SO 

EXIT 

ON  END-OF-LINE  AND 

; 

INVALID  INPUT 

33 1-. 

CALLED  BY  I  UTM 

■  ■  '  2 

'  i  .. 

•=  T  A 

I  RTS 

.  STORE  RETURN  ADDR 

,  33:'. 

T '  T 

■> ,  0 

.  RESET 

,  3  34. 

•:.TA 

0.  PCHR 

,  VARIABLE 

.  3  J5u 

■  ISR« 

GBYTE 

•  GET  A  BYTE 

,  3};/-,. 

JMP 

INI  X 

.  EOL  -  RETURN 

,  33  70 

t.DA 

1  .  660 

.  GET  LOWER  LIMIT 

■  3 -3  3* ' 

LDA 

2 ■  B71 

i  GET  UPPER  LIMIT 

33«< 

JSR 

INBND 

,  CHECK  IF  BYTE  IS  NUMERIC 

,  340'., 

JMP 

I N I  X 

.  NO  -  INVALID  INPUT  EXIT 

;  34  H, 

LDA 

1 ,  PCHR 

i  FIRST  BYTE  ALREADY 

z  3420 

MO  VS 

1.1,  SZR 

,  SET'- 

,  3430 

JMP 

+3 

;  YES  -  ADD  THE  OTHER 

,  3440 

ST  A 

0,  PCHR 

i  NO  -  STORE  ONE 

;  3450 

JMP 

GET2+3 

i  GET  ANOTHER 

,  3460 

ADDS 

1 .  0 

.  PACK  THE  SECOND  BYTE 

>  3470 

JMP@ 

I  RTS 

i  RETURN  TO  I.  UTM 

i  3480 

IRT5 

BLK 

1 

i  3490 

PCHR: 

BLK 

1 

i  3500 

,  *************************************************************** 

i  3510 

, 

i  3520 

SUBROUTINE 

INBND  - 

THIS  IS  AN  INTERNAL  ROUTINE  TO  TEST 

i  3530 

.  WHETHER  A  NUMBER  IS 

WITHIN  THE  LIMITS  OF  TWO  OTHERS. 

i  3540 

i  3550 

i  AT  0 

=  BYTE 

i  3560 

.  AC  1 

«  LOWER 

LIMIT 

i  3570 

AC2 

=  UPPER 

LIMIT 

)  3580 

i  JSR 

INBND 

,  3590 

;  "ERROR  RET1JRN> 

i  3600 

;  CIN 

BOUNDS 

return; 

i  36 1 0 

i 

,  3620 

INBND 

SUBL# 

1 . 0.  SNC 

i  COMPARE  LOWER  LIMIT 

i  3630 

SUBU* 

0.  2.  SZC 

i  COMPARE  UPPER  LIMIT 

i  3640 

JMP 

0.  3 

;  ERROR 

i  3650 

JMP 

1.3 

i  SUCCESS  RETURN 

i  3660 

I 


.  TITL  MATH 

************«-*++****++**•*****+*+#***+«+*+**•**«+*  **************************** 
*  * 

*  * 

*  MATH  ROUTINES  * 


************** a************************************************************. 


THIS  SOFTWARE  PACKAGE  CONTAINS  MANY  SUBROUTINES  USEFUL  IN  SOLVING 
TRIGONOMETRIC  EQUATIONS 


.  3670 

»»»»«»» 

3690 

ARC 

SIN  C  A 

LCULAT  ION 

3700 

3710 

ENTRY 

ACO, AC1  CONTAIN  INPUT  PARAMETER 

3720 

3730 

EXIT: 

ACO, AC1  CONTAIN  THE  ARCSIN 

3740 

3750 

tttttttttiiiiittittiiittttitiittitif 

i  *  *  J/  O'J 

ASIN: 

STA 

3, ASRET 

i SAVE  RETURN  ADDRESS 

3770 

DST 

,  SAVE  THE  DATA 

37S0 

TEMP3 

l  3790 

FMPNM 

i FORM  X**2 

3800 

TEMP3 

i  3810 

DST 

iSAVE  IT 

3820 

TEMP4 

i  3830 

DLD 

; FLOATING  POINT  l 

3840 

FI 

i  3850 

FSBNM 

i  FORM  1-X**2 

3860 

TEMP4 

i  3870 

JSR* 

PSQRT  ' 

i SQUARE  ROOT 

3880 

DST 

i  SAVE 

3890 

TEMP4 

i  3900 

MOV 

0.  0,  SNR 

;  SKIP  IF  SORT  NE.  0 

3910 

JMP 

OVF 

i OVERFLOW 

3920 

DLD 

i GET  X  AGAIN 

3930 

TEMP3 

i  3940 

FDVNM 

• FORM  X/SQRT < 1 -X**2 ) 

3950 

TEMP4 

i  3960 

JSR« 

PATAN  - 

; ARCTANGENT 

3970 

JMP@ 

ASRET 

i RETURN 

3980 

i  3990 

OVF: 

DLD 

iLOAD  PIE/2 

4000 

PIE2 

i  4010 

LDA 

2.  TEMP3 

i  MS  16  BITS  OF  X 

4020 

MOVL* 

2,  2,  SZC 

iSKIP  IF  X  WAS  GE.  0 

4030 

FNO 

;  NEGATE 

4040 

JMP* 

ASRET 

, RETURN 

4050 

.  4060 

PSQRT 

SORT 

; POINTER  TO  SORT 

4070 

PAT  AN 

ATAN 

i  4080 

ASRET 

0 

; RETURN  ADDRESS 

40Q0 

TEMP3 

0  0 

4290 

TEMP4 

0  0 

43Q0 

hr 


,  -SUBROUTINE  O  SET  -  THIS  ROUTINE  SETS  UP  THE  OUTPUT  BUFFER 
BYTE  POINTER  AND  MUST  BE  CALLED  BEFORE  ANY  OTHER  OUTPUT 
FORMATTING  ROUTINE  ALSO  THE  CALLER  MUST  BE  CAREFUI  f;oT 
PACK  BEYOND  THE  BOUNDS  OF  HIS  BUFFER 

ACO  =  BUFFER  STARTING  BYTE  ADDRESS 

.  JSR  O  SET 

0  SET  STA  0, OBUF  .  STORE  BYTE  POINTER 

•JMP  0.  3  .  RETURN 

OBUF  ,  BLK  1 


.  *************************************************************** 

SUBROUTINE  0  BYT  -  THIS  ROUTINE  STORES  A  BYTE  PASSFO  AS 
ARGUMENT  INTO  THE  OUTPUT  BUFFER  THE  BYTE  POINTER  iS 
INCREMENTED  AFTER  A  STORE 


ACO 

*  OUTPUT  BYTE 

.  *  . 

JSR 

0  BYT 

0.  BYT 

ANFNW 

0 

.  ISOLATE  LOW-ORDER 

377 

8  BITS 

/-.  >•  7 1 

LDA 

2,  OBUF 

,  OET  BUFFER  BYTE  PTR 

»  o 

MOVZR 

2,  2 

. OET  WORD  ADDRESS 

t  • 

LDA 

1. 0.  2 

; GET  THE  BUFFER  WORD 

, 

MOV 

1.  1 .  SNC 

i  SION  BIT  SET  FROM  BYTE  ADDRESS'* 

*  £>'•■*« 

JMP 

RSIDE 

, STORE  ON  RIGHT 

.  6*lv 

ANFNW 

1 

.MASK  FOR  RIGHT 

.  .. * 

377 

,  6*4. 

MOVS 

0.  0 

, SWAP  THE  CHARACTER  TO  BE  STORED 

JMP 

STWRD 

.GO  STORE  THE  WORD 

.  6  ■'  •  < 

RSIDE 

ANFNW 

1 

.MASK  FOR  LEFT  CHARACTER 

,  c-:<  /« - 

177400 

»  6vS0 

STWRD 

ADD 

1,0 

. ADDIN  THE  BYTE 

, 

STA 

0.  0,  2 

.  STORE  IN  OUTPUT  BUFFER 

.  7000 

ISZ 

OBUF 

i  BUMP  BUFFER  BYTE  POINTER 

JMP 

0,  3 

i  RETURN 

,  702- 

►*******•*■( 

70S- 

i 

,  T04< 

.  SUBROUTINE 

0  INT  - 

THIS  ROUTINE  FORMATS  A  SINGLE  PRECISION 

,  705'* 

INTEGER  INTO  A  USER  SPECIFIED  FIELD  WIDTH.  THE  INTEGER  IS 
PACKED  FROM  THE  CURRENT  BYTE  POINTER  POSITION,  RIGHT 
■JUSTIFIED  WITH  BLANK  FILL  TO  THE  LEFT  IF  THERE  IS  NOT 
ENOUGH  ROOM  FOR  THE  INTEGER,  DOLLAR  SIGNS  ARE  PADDED  INTO 
THE  FIELD 

ACO  »  INTEGER 
■JSR  0  INT 
CFIELD  WIDTH> 


71  u 

711 

712 
71 
■Hi. 


119 


. . .  . ^*m**u***it^. 


0  I  NT 


STORE  RETURN 


STA 

3.  ORT 

MOV 

0.  1 

SUBZL 

0.  0 

■SMPY 

0 

FLO 

r  MM 

1  DA 

3.  ORT 

LDA 

2 ,  0»  i' 

STA 

j ,  +2. 

•JSR 

0.  FLT 

ELK 

t 

LDA 

3,  ORT 

UMP 

1,  3 

ELK 

1 

ELK 

1 

ACO  1 

CONVERT  TO  DOUBLD  PRECISION 
CONVERT  TO  F  P 

RELOAD  RTA 

PICK:  UP  FIELD  WIDTH 

STORE 

CALL  FLOAT  I NO  FORMATTER 
INTEGER  FIELD  WIDTH 
DECIMAL  FIELD  WIDTH 


715'.' 

7L.  O 

71 

71  Sc. 

1 


7L4i,' 
7.':  5" 

7260 
7  2"7  «.• 
7280 
7290 
7800 
7810 


,  '>*■»****•»■»**•*■»********•***•♦****** **■***•*■***•*■****•#*■»•**** ***•»***•»*•*■* 

,  SUBROUTINE  0  FLT  -  THIS  ROUTINE  FORMATS  A  FLOATING  POINT 

VALUE  INTO  THE  OUTPUT  BUFFER  THE  NUMBER  IS  RIGHT  .JUSTIFIED 
INTO  THE  SPECIFIED  FIELD  WITH  BLANK  FILL  TO  THE  LEFT  IF  THE 
.  INTEGER  PART  DOES  NOT  FIT,  THE  DECIMAL  FIELD  SIZE  IS 
DECREASED  UNTIL  THE  INTEGER  PART  HAS  ENOUGH  ROOM.  IF 
THE  TOTAL  FIELD  WIDTH  IS  TOO  SMALL.  DOLLAR  SIGNS  ARE  PADDED 
.  INTO  THE  OUTPUT  BUFFER 

,  ACO. AC1  =  FLOATING  VALUE 

,  JSR  0.  FLT 

i  < INTEGER  FIELD  WIDTH> 

i  CDECIMAL  FIELD  WIDTH> 

,  CRETURN> 

,  EXAMPLE  VALUE  =*  25.  560 
JSR  0  FLT 
,  5 

4 

.  IS  IN  EFFECT  A  FORMAT  SPECIFICATION  OF  F9  4  IN  FORTRAN 
TERMS  THE  RESULT  IS:  BBB25  5600 

WHERE  "B"  STANDS  FOR  BLANK 


7320 

7330 

7340 

7350 

7360 

7370 

7380 

7390 

7400 

7410 

7420 

7430 

7440 

7450 

7460 

7470 

7480 

7490 

7500 

7510 

7520 

7530 

7540 

7550 


0  FLT 

STA 

3,  ORT 3 

i  STORE  RETURN 

■  7560 

LDFNW 

2 

.  LOAD  ASCII 

7570 

BLANK 

40 

,  BLANK 

,  7580 

MOVL# 

0,  0*  SNC 

;  IS  NUMBER  NEGATIVE? 

,  75?0 

JMP 

OF  1 

,  NO 

i  7600 

FNG 

,  NEGATE  THE  NUMBER 

.  7610 

LDFNW 

2 

.  LOAD  ASC I I 

MS  I 
i  IF  1 


OF  2 


OF  3 


OF  4 


0F5 


N 

>•  _ 

MINUS  SION 

76.3*  • 

ST  A 

2.  os  ion 

-TORE  SION  CHARACTER 

764.  • 

si  ir 

j  j 

SI  T  FORMATTING  FLAGS 

}  65 1  > 

STA 

j.  K  IRST 

i 

INL 

_ ,  „• 

/'>  O  • 

SfA 

H  IfcLD 

;t.u' 

1  nr. 

OFVf  “i 

RFLOAD  RTA 

'/  .■  ‘i 

I.O. » 

Fill  UF  INTEGER  FIELD 

7  ;• .... 

:  r 

'  -I  IP 

SA'.'F  T  T 

7?li, 

ID  A 

3  <  l »  3 

PICK  up  DECIMAL  FIELD  WIDTH 

r  7  J.\  i 

_•  T  A 

NDEC 

SAVE  IT 

77  3" 

MOV 

3.  3.  SZR 

IS  IT  ZERO"’ 

7740 

INC 

2  •  2 

NO  -  ADD  A  PLACE  FOR  THE  DECIMAL 

7750 

ADD 

3*  2 

GET  TOTAL  REQ  D  FIELD  WIDTH 

7764  • 

STA 

2.  F W 

7770 

DETERMINE 

FUDGE  FACTOR 

77&v 

LDA 

2,  FDMAX 

GET  MAP  SIZE  OF  'FUDGE'  TABLE 

7790 

SUBL  # 

3.  2.  SZC 

IS  DECIMAL  FIELD  WIDTH  BIFFER? 

7Su*.* 

■JMP 

OF  2 

YES  -  FORGET  IT 

731o 

ADD 

3.  3 

DOUBLE  THE  INDEX 

732o 

ADFNW 

ADD  ON  FACTOR  TABLE  BASE  ADDR 

7830 

FFTAE 

784o 

STA 

3,  +2 

STORE  THE  ADDRESS 

7850 

FADNM 

ADD  ON  THE  FUDGE  FACTOR 

7860 

BLK  1 

STORAGE  FOR  THE  ADDRESS 

7870 

DETERMINE 

NECESSARY  WIDTH  OF  OUTPUT  VALUE 

7880 

FDVNM 

MOVE  DECIMAL 

78?0 

FD10 

POINT  LEFT 

7900 

LDFNW 

3 

LOAD  LEFT  BYTE 

7910 

177400 

MASK 

7920 

AND  Z  L 

0.  3 

MASK  FOR  EXPONENT  AND  SHIFT 

7930 

SUBZR 

2,  2 

SET  BIT  0 

7940 

SUB# 

2.  3.  SNR 

ZERO  EXPONENT? 

7950 

JMP 

OF  3 

YES 

7960 

MOVL 

3,  3,  SNC 

IS  THE  EXPONENT  NEGATIVE0 

7970 

JMP 

OF  3 

YES 

7980 

ISZ 

FIELD 

NO  -  INCREMENT  FIELD  SIZE 

7°90 

JMP 

0F2 

8000 

NOW  THE  VALUE  IS  <  1  CONTINUE  FORMATTING 

3010 

LDA 

3.  FIELD 

LOAD  INTEGER  FIELD  SIZE  REQUIRED 

8020 

DST 

STORE  THE  POSITIVE 

8030 

VAL 

NUMBER 

8040 

LDA 

2.  TMP2 

RELOAD  INTEGER  F.  W 

3050 

SUB 

2.  3.  SZR 

EXACT  FIT0 

8060 

JMP 

OF  4 

NO 

8070 

LDA 

2.  OSIGN 

YES  -  BUT  IS  THERE  A  MINUS0 

3080 

LDA 

3.  MSIGN 

GET  ASCII  MINUS  SIGN 

8090 

SUB 

2.  3.  SZR 

EQUAL? 

8100 

JMP 

0F6 

NO  -  THERE'S  ENOUGH  ROOM 

8 1 1 0 

JMP 

FIT 

WILL  NOT  FIT 

8120 

MOVL# 

3,  3.  SNC 

WILL  NUMBER  FIT? 

3130 

•JMP 

FIT! 

NO  -  TRY  AND  MAKE  IT  FIT 

8 1 40 

INC 

3,  3 

ADD  PLACE  FOR  SIGN 

3150 

MOV 

3,  1,  SNR 

BLANKING  NECESSARY0 

8160 

■  JMP 

OF  5 

NO 

8170 

LDA 

0. BLANK 

PAD  FIELD  WITH  LEADING 

8180 

JSR 

0  PAD 

BLANKS 

8190 

LDA 

0.  OSIGN 

LOAD  SION  CHARACTER 

8200 

■JSR 

0  BYT 

AND  OUTPUT 

8210 

121 


OUTPUT  THE 

INTEGER  PART 

i  8220 

0F6 

DLD 

i 

RELOAD  THE 

,  8230 

VP 

* 

VALUE 

,  8240 

FMPNM 

MULTIPLY  BY 

i  8250 

FD 

10 

,  8260 

DST 

i 

SAVE  THE  MULTIPLIED 

8270 

VAL 

i 

VALUE 

;  8281'.' 

FIX 

GET  DIGIT 

.  82C;| ' 

MOV 

1 . 2 

SAVE  IT 

.  330i. 

FLU 

, 

FLOAT  IT 

.  83 1 0 

FNM 

.  8-3LO 

FSBNM 

SUBTRACT  OFF  THE 

.  8330 

VAL 

VALUE 

,  8340 

FNG 

MAKE  IT  POSITIVE 

;  835>.' 

DST 

STORE  IT 

i  8360 

VAL 

,  8370 

ADPI 

60 

i 

ADD  ASCIT  "  ZERO"  TO  DIGIT 

.  S38«.' 

MOV 

2,  0 

.  8390 

JSR 

0  BYT 

i 

OUTPUT  THE  CHARACTER 

.  3400 

DSZ 

FIELD 

i 

CHECK  LOOP  COUNTER 

,  34  1 

■JMP 

OF  6 

,  8420 

, 

END  OF  INTEGER  OR  DECIMAL  FORMATTING 

i  8430 

LDA 

0,  FIRST 

i 

TEST  IF 

,  8440 

MOV 

0.  0.  SZR 

i 

DONE 

,  3450 

JMP 

OFEX 

i 

YES  -  EXIT 

i  8460 

, 

GET  UP  TO 

DO  DECIMAL 

PART 

,  8470 

LDA 

3.  0RT3 

GET  THE 

,  8480 

LDA 

0,  1,  3 

ORIGINAL  DEC I AML  FIELD  WIDTH 

,  8490 

MOV 

0.  0.  SNR 

ZERO? 

i  8500 

JMP 

OFEX 

YES  -  EXIT 

i  8510 

LDA 

0,  DCPT 

GET  DECIMAL  POINT 

,  3520 

JSR 

0  BYT 

AND  OUTPUT 

,  3530 

iSZ 

i-  iRST 

set  Flag 

■  8540 

LDA 

0,  NDEC 

RELOAD  DECIMAL  FIELD  WIDTH 

i  3550 

MOV 

0.  0.  SNR 

ZERO? 

i  3560 

JMP 

OFEX 

YES  -  EXIT 

i  8570 

STA 

0.  FIELD 

NO  -  STORE  LOOP  COUNTER 

,  8580 

JMP 

0F6 

DO  DECIMAL  PART 

i  3590 

NUMBER  WILL  NOT  FIT 

IN  SPECIFIED  INTEGER  FIELD 

.  8600 

TRY  AND  DECREASE  DECIMAL 

FIELD  SIZE  AND  ADD  TO 

.  3610 

INTEGER  FIELD  UNTIL 

NUMBER  FITS. 

.  8620 

i 

FIT!  NEG 

3.  3 

GET  2  S  COMPLEMENT 

i  8c*4u 

FIT 

LDA 

0. OSIGN 

LOAD  SIGN  TO  OUTPUT 

8650 

LDA 

2.  MSIGN 

AND  MINUS  SIGN 

»  8660 

SUB 

0.  2.  SNR 

EQUAL  ? 

,  8670 

DEC 

j 

YES  -  INCREASE  NEED 

*  8680 

LDA 

1 . NDEC 

LOAD  CURRENT  DECIMAL  FIELD  WIDTH 

i  8690 

FITL  DEC 

1 

DECREMENT  THE  DECIMAL  F  W. 

,  8700 

COM# 

1.1.  SNR 

OUT  OF  ROOM7 

,  8710 

JMP 

ERRS 

YES  -  OUTPUT  ERROR  SIGNS 

i  9720 

INC 

3.  3.  SZR 

INCREASE  INTEGER  FIELD 

,  ;$7  30 

JMP 

FITL 

TRY  AGAIN 

.  8740 

122 


NUMBER  FITS  -  NOW  HAVE  NEW  INTEGER  /  DECIMAL  FIELDS  . 


STA 

l . NDEC 

STORE 

,  378*.  i 

MOV 

2.  2,  SNR 

OUTPUT  THE  SIGN? 

8770 

JSR9 

OBYT 

OUTPUT  BYTE 

,  8  7  SO 

JMP 

OF  6 

,  879<_. 

ERRS 

LDA 

0. DSIGN 

.  38  1 « 

LDA 

Ik  FW 

.  ss : 

JSR 

0  PAD 

3 

OF  Ex 

LDA 

3,  0RT3 

RETURN  JUMP 

,  384*.* 

JMP 

2,  3 

2-  C'  FT  |  ( 

ORT  3 

.  BLK 

1 

;  3380 

NDEC 

BLK 

1 

DECIMAL  FIELD  WIDTH 

,  8870 

FW 

BLK 

1 

TOTAL  FIELD  WIDTH 

i  8880 

FIRST 

BLK 

1 

PASS  #  FLAG 

;  ©9vO 

FIELD 

BLK 

1 

LOOP  COUNTER 

,  690‘*  1 

OSIGN 

BLK 

1 

SIGN  OF  OUTPUT  NUMBER 

/  39 1 0 

VAL 

BLK 

2 

NUMBER  PASSED  TO  ROUTINE 

OC/-V. 

DCPT 

56 

;  3930 

DSIGN 

i  894* 

RDX 

10 

,  S95«> 

FFTAB 

0.  5 

i  894,1. 

0.  05 

i  8970 

0.  005 

,  ©9A0 

0.  0005 

,  3904 

0.  00005 

i  9000 

0  000005 

,  90 1 0 

0  0000005 

i  9020 

RDX 

8 

i  9030 

FDMAX 

7 

SIZE  OF  TABLE 

i  9040 

•m*************'*****'********************'********************** 

SUBROUTINE  0  PAD  -  THIS  ROUTINE  PADS  THE  OUTPUT  BUFFER  WITH 
WITH  A  CERTAIN  NUMBER  OF  PADDING  BYTES. 


ACO  »  PADDING  BYTE 

AC1  »  LENGTH  OF  AREA  TO  BE  PADDED 

JSR  0  PAD 


0.  PAD: 

STA 

3.  0RT5 

MOVL# 

1,  1,  SZC 

MAKE  SURE  COUNT  IS 

NEG 

1.  1 

POSITIVE 

STA 

0,  PADB 

SAVE 

STA 

1 . PLOP 

SAVE 

JSR« 

OBYT 

OUTPUT  BYTE 

LDA 

0. PADB 

RELOAD  PADDING 

DSZ 

PLOP 

SKIP  ON  ZERO  COUNTER 

JMP 

jmps 

.  -3 

0RT5 

AGAIN 

0RT5: 

BLK 

1 

PADB 

BLK 

1 

PLOP 

BLK 

1 

9050 
9060 
9070 
9080 
9090 
9100 
9110 
9120 
9130 
9140 
9 1 50 
9  1 60 
9 1 70 
l  ©0 

,rco<> 

9210 
'^22  0* 

'*>24  <j 

9250 
‘•>2  60 


123 


,  **#-*#««*«•*#*«*««« «««4***-*  *4*  «****«  +****«-*##-#*****»#»»**»»*»-»*.** 


9270 
9280 

,  SUBROUTINE  0  MOV  -  THIS  ROUTINE  TRANSFERS  BYTES  FROM  .  929'.' 

THE  CALLING  ROUTINE  S  BUFFER  INTO  THE  OUTPUT  BUFFER  A  .  9:30" 

•T-RT:rjt*.  E-UFKEP  GDPPES  AMU  BVTF  t'OUNT  ARE  PASSED  AS  ,  *31- 

AS"  -I  'MENTS.  .  •■>  i2'.i 

0  =  STRING  BYTE  'TaRTIUu  ADDR  ;  9340 

AT  l  =  BYTE  COUNT  ,  •■»3S" 

ICR  0  MOV  ,  -Oc." 

,  '••'37" 

0  MOV  STA  3.0RT6  .  STORE  RTA  i  '-'38u 

STA  1 , PLOP  ,  STORE  COUNT  ,  9390 

STA  0.  PADB  AND  STORE  .  9400 

MAO  LDA  2  PADB  .  LOAD  BYTE  POINTER  .  :'41'. 

MOVZP  2.2  ,  GET  WORD  ADDR  ,  942" 

LDA  ■'<  ".  :  PILL  UP  STRING  WORD  ,  9430  . 

MOV  O.  0.S2C  .  GET  CORRECT  BYTE  .  9440 

MO  VS  C>.  0  .  9450 

JSR®  OBYT  i  9460 

ISZ  PADB  .  BUMP  BYTE  POINTER  i  9470 

DSZ  PLOP  ;  SKIP  IF  COUNT  GOES  ZERO  ,  9480 

■JMP  MAO  ,  ANOTHER  ONE  i  9490 

JMP@  0RT6  ,  9500 

OR  T  6  BLK  1  i  9510 

i  12150 

Itiiiiiiiiiiiiiiiiiiiiiiiiiiiiihiiiiiiiiiiiiiiiiiiliiiiiiiiiiiii  12160 

i  THIS  SUBROUTINE  CALCULATES  THE  SQUARE  ROOT  OF  A  12170 

,  NORMALIZED  FLOATING  POINT  ARGUMENT  USING  NEWTON  ITERATION  12180 

,  12190 

ENTRY  ACO. AC1  CONTAIN  ARGUMENT  12200 

12210 

i  EXIT  ACO, AC 1  CONTAIN  SQUARE  ROOT  12220 

,  12220 

12240 

SORT  DST  i  STORE  ARGUMENT  1 2250 

DST1  ■  12260 

DST  i STORE  ARGUMENT  12270 

DST2  »  12280 

STA  3.  SQRET  •  SAVE  RETURN  12290 

LDA  0. DST1  i LOAD  FIRST  WORD  OF  ARG  12300 

LDA  1 , DST 1  +  1  >  LOAD  2ND  WORD  OF  ARG  12310 

ANFNW  0  *  12320 

377  i  1 2330 

STA  0.  ST04  i  STORE  MOST  SIG  8  BITS  OF  MANTISSA  12340 

MOV  0. 0. SZR  .CHECK  FOR  ZERO  MANTISSA  12350 

JMP  NONZR  .  12360 

MOV  1.1.  SNR  i  1 2370 

JMP  ZERR  .  ZERO  ARO  =  ZERO  RESULT  12380 


124 


NONZR  LDA  O.DST1 

OBTAIN  EXPONENT  OF  ARO 

1  ^  . 

ANFNW  0 

1  24. 1" 

77400 

1  24 1  ij 

LLSH  1  i 

SHIFT  LEFT  TO  PICK  UP  EXPONENT  SION 

1 24  ji 

LDFNW  2 

124  ... 

1 00000 

1244. 

XOR  2 

GET  EXPONENT  IN  TWOS  COMPLEMENT 

1 244 

MOV  2.  0 

1244.' 

RASH  7 

SHIFT  EaP  TO  LOW  ORDER  BYTE 

1247.1 

RASH  2 

, 

1248-: 

MOVZR#  0.  0,  3ZC 

SKIP  IF  EXP  EVEN.  0  =  0 

1 24'r'i 

.JMP  Q1 

JMP  IF  EXP  ODD 

12500 

RASH  1 

HALVE  EXP 

12510 

LDA  2,  EVEN 

LOAD  POINTER  TO  EVEN  CONSTANTS 

12520 

.  IMC  KIPP 

cmpc  mctli  pvp 

12530 

Q1  SUBZL  1.1 

LOAD  1  INTO  AC1 

1254'.' 

SUB  1 . 0 

SUBTRACT  1  LEAVING  2P 

1255o 

RASH  1 

DIVIDE  BY  2  GETTING  P 

12560 

ADD  1.0 

ADD  1  GETTING  P+Q 

1 2570 

LDA  2,  ODD 

LOAD  POINTER  TO  ODD  EXP  CONSTANTS 

1 25*0 

NEP  ST  A  0.  NEXP 

STORE  P+Q 

1 259o 

LDA  0,  ST04 

i 

12600 

AOFNW  0 

NEEDED  TO  MAKE  EXCESS  100  WORD 

12610 

40000 

i 

12620 

STA  0.  DST2 

DST2  HAS  MANTISSA 

12630 

DLDX 

;  LOAD  C 

12640 

4 

i 

12650 

FADNM 

i  COMPUTE  C+M 

12660 

DST2 

i 

12670 

OST 

I 

12680 

TMP 

1 

12690 

DLDX 

i LOAD  B 

12700 

2 

12710 

FDVNM 

i COMPUTE  B/CC-MI) 

12720 

TMP 

12730 

DST 

12740 

TMP 

12750 

DLDX 

iLOAD  A 

12760 

0 

12770 

FADNM 

i COMPUTE  A+B/(C+M> 

12780 

TMP 

12790 

DST 

1 2800 

DST  2 

1 28 1 0 

LDA  0.  DST2 

iLOAD  FIRST  WORD  OF  YO 

1 2820 

ANFNW  0 

.  MASK  OFF  ALL  BUT  EXP 

12830 

77400 

1 2840 

LLSH  1 

12850 

LDFNW  2 

1 2860 

100000 

12870 

XOR  2 

2£i<. 

MOV  2,  0 

1 28'?0 

RASH  7 

1 2900 

RASH  2 

125 
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i  HATES  THF  T.'.NGEN I  OF  ..  I  I  1 1  NT 


i  H  i  >  vi  dill  NF  1  ihI 

-\  A. r  1  •-il'l  *^Ni  l  t 


:'NTRY 

EUT 

A»  •»  .  ■ 
r^». « ».  Af  t  ». 

1  III -4  IN  ;  H  .4M1 
i  ;:«JTA  T N  TA«  » 

1  .  -r  . 

i  :.4_- 
1 

,  j ,  t  i  i ■ 

TAN 

■•FA 

-."VET 

. SAVE  RETURN 

llil 

03  T 

,  SAVE  ANGLE 

1  ?4 

DST1 

,  i :  4 ,  o- 

•JSR 

:os 

,  FIND  COS 

1  3400 

03  T 

;  SAVE  COS 

1  jH'-'U 

UST2 

,  1 35'.*'. 

OLD 

i  RELOAD  ANG(_E 

DST1 

J 

J  SR 

SIN 

. FIND  SIN 

1  --5 

LDA 

2,  DST  2 

.  MS  14  BITS  OF  COS 

13541' 

MOV# 

2,  2.  SZR 

,  SKIP  IF  COS  =»  0 

13550 

■JMP 

CNE 

. COS  .  NE  0 

1354.0 

it 

0,  2 

i  MS  16  BITS  OF  SIN 

1 3570 

OLD 

i LARGEST  FP  NUMEER 

1  o58‘.‘ 

LARGE 

;  1  3590 

MOVL# 

2.  2.  SZC 

; SKIP  IF  S I GN (SIN)  -  0 

1 3600 

FNC, 

. NEGATE 

13610 

•JMP@ 

SGRET 

. RETURN 

13620 

i  13630 

CNE 

FDVNM 

;  FIND  TAN 

13640 

DST2 

i  13650 

JMP@ 

SQRET 

.  RETURN 

1 3660 

LARGE: 

077777 

, LARGEST  FP  NUMBER 

13680 

177777 

i  13690 

1 3700 

1371U 

13720 


THIS  ROUTINE  CALCULATES  EITHER  THE  SINE  OR  COSINE  OF  A  13730 

FLOATING  POINT  RADIAN  ANGLE  13740 

13750 


• 

ENTRY: 

ACO,  AC1 

CONTAIN  THE  ANGLE 

13760 

13770 

■ 

EXIT 

ACO.  AC1 

CONTAIN  THE  SIN/COS 

137S0 

13790 

i  i  i  l  t  i  i  1 

i  »»»»*»*  i 

i  i  i  i  i  it  i  i  ii  i  i  i  i  i  ii  i  it  iiii  ii  •  iiiii  i  i  >  i  it  i 

1 3800 

COS 

SUBZL 

•JMP 

2.  2 

SNCO 

i AC2  -  1  FOR  COS.  0  FOR  SIN 

13810 
i  13820 

SIN 

3UB0L 

2.  2 

.  1 3830 

SNCO : 

DST 

DSTR1 

f  STORE  ARGUMENT 

1 3840 
i  1 3850 

STA 

3.  CSRET 

;  SAVE  RETURN 

1 3860 

ANFNW 

0 

100000 

;  PUT  SIGN  BIT  IN  ACO 

13370 
i  13880 

RLSH 

17 

i SHIFT  SIGN  BIT 

1 3890 

MOVZL 

SUB 

2.  2.  SZR 
0.  0 

i AC2  HAS  20 

1 3900 
,  1 39 1 0 

STA 

SUB 

0.  ST0R1 
0.  0 

i STORE  SIGN  OF  ARG 
; ACO  -  0 

1 3920 

1393.' 


sta 

0. ST0R2 

. STORE  ZERO 

13940 

LDA 

0. DSTR1 

•LOAD  FIRST  WORD  OF  ARC 

1 395. . 

ANFNW 

0 

.REMOVE  SION  BIT 

1  39 .  '  ■ 

077777 

. TAPE  ABS  OF  arg 

13-70 

STA 

0.  DSTR1 

. DSTR1  *  ABS (ARG) 

1  3°  3  ■ 

FT  A 

2.  STOPS 

.  STORE  20 

1  3-  '« 

DLD 

a.  . 

DSTR1 

FMF'NM 

. ABS (ARG >*4/ PI 

1 Ay  20 

PI  4 

1  40  30 

DST 

, STORE  VALUE  IN  DSTR2 

1404' 

9STR2 

i4'.o  .. 

FIX 

i  40  oo 

DST 

.DP  INTEGER  IN  DSTR3 

14070 

-BSTR3 

24080 

FLONM 

. FP  INTEGER  IN  DSTRl 

1 4090 

DST 

14100 

DSTRl 

. FP  INTEGER  IN  DSTRl 

141  10 

DLD 

14120 

DSTR2 

1  4 1 30 

FSBNM 

.REMOVE  INTEGER  PORTION 

14140 

DSTRl 

14150 

DST 

.FP  FRACTION  IN  DSTR4 

14160 

DSTR4 

14170 

LDA 

0.  DSTR3+1 

.LOAD  I 

14180 

LDA 

1 , ST0R3 

.LOAD  2Q 

14190 

ADOZR 

0,  1 

; < I+2QJ/2 

14200 

STA 

1 , ST0R3 

, 

14210 

MOVR 

0.  0.  SNC 

.CHECK  FOR  ODD  OR  EVEN  I 

14220 

JMP 

EVEN 

i 

14230 

DLD 

i 

14240 

FI 

> 

14250 

FSBNM 

.  (  1-G) 

14260 

DSTR4 

» 

14270 

DST 

.STORE  - ( G- 1 ) 

14280 

DSTR4 

i 

14290 

LDA 

1 , ST0R3 

.LOAD  (I+2Q1/2 

14300 

INC 

1.  1 

,  ADD  1 

14310 

MOVR 

1.1.  SZC 

. DETERMINE  SIN/COS  PDLYNOMAL  CONSTANT 

14320 

JMP 

+2 

i 

14330 

DSZ 

ST0R2 

.SET  TO  -1  FOR  SIN 

14340 

DLD 

. COMPUTE  R*R 

1 4350 

DSTR4 

, 

14360 

FMPNM 

i 

14370 

DSTR4 

, 

14380 

DST 

. STORE  R*R 

14390 

DSTR2 

i 

14400 

LDA 

2.  SNC 

.POINTER  TO  SIN  CONSTANTS 

14410 

ISZ 

ST0R2 

; 

14420 

LDA 

2,  CSC 

. POINTER  TO  COS  CONSTANTS 

14430 

LDFNW 

1 

.INITIALIZE  DEGREE  OF  POLYNOMIAL 

14440 

3 

, 

14450 

STA 

1 .  ST0R4 

1  4460 

DLDX 

.LOAD  1ST  COEF 

14470 

0 

14480 

DST 

,  STORE  1ST  CODE 

1  4490 

DSTR3 
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mmm teUfA 


1  4500 


PLO 

FMPNM 

COMPUTE  AR 

145;  v 

DSTR2 

1452..' 

DST 

14‘V-m 

DS  IRS 

,  1454i. 

ADP I 

7 

ADD  IMMEDIATE  TO  AC 2 

1455'. 

DLDX 

LOAD  NEXT  COE F 

1456" 

0 

1457" 

FADNM 

1  45:-.... 

DSTR5 

1 45*0 

DST 

,  1 460u 

DSTR3 

.  1 46 1 0 

DSZ 

ST0R4 

DECREMENT  COUNTER 

14620 

JMP 

PLO 

CONTINUE  POLY  EVALUATION 

1 4630 

LDA 

2.  ST0R2 

CHECK  FOR  SIN  OR  COS 

1 4640 

MOV 

2,  2.  SZR 

IF  SIN,  COMPUTE  P(R*R)*R 

1 4650 

JMP 

CONT  ;  JMP  COS 

14660 

DLD 

■  14670 

DSTR3 

;  14680 

FMPNM 

,  1 4690 

DSTR4 

,  14700 

DST 

;  14710 

DSTR3 

,  14720 

CONT: 

LDA 

1 .  ST0R3 

LOAD  ( I+2Q1/2 

14730 

MQVZR 

UX 

U+2QI/4 

14740 

LDA 

0,  ST0R1 

LOAD  SION 

1 4750 

MOVR 

0,  0.  SNC 

i  14760 

INC 

1.  1 

,  14770 

MOVR 

1,  1.  SZC 

i  14780 

JMP 

OTPU 

;  14790 

LDA 

0.  DSTR3 

14800 

ADFNW 

0 

;  14810 

100000 

,  14820 

STA 

0.  DSTR3 

■  14830 

OTPU 

DLD 

,  14340 

DSTR3 

i  14850 

ADDOL# 

0.  0.  SNR 

CHECK  FOR  FLOATING  POINT  NEG.  ZERO 

14860 

SUB  0, 

0 

FIX  IT 

1 4870 

JMP@ 

CSRET 

RETURN  WITH  SIN/COS  IN  ACO.  AC1 

14880 

C3RET 

0 

i  14890 

SNC 

SINC 

.  1 4900 

CSC: 

CSC 

,  14910 

ST0R1 

0 

i  14*20 

ST0R2 

0 

;  14930 

ST0R3 

0 

i  14*40 

ST0R4 

0 

,  14r50 

RDX 

10 

,  14*60 

0STR1 

0  0 

1  14970 

DSTR2 

0.  0 

,  14980 

DSTR3 

0  0 

i  1 4*90 

DSTR4 

0.  0 

■  15000 

DSTR5 

0  0 

,  15010 

PI  4: 

1  2732395 

4 /PI 

i  4/PT 


5  INC 


-0  35950439E-4 
0  2490001 007E-2 
-0  807454325E— 1 
0  7353*816 
C  -0.  31872733E-3 

0  1 584*684 16E-1 
-0  3084241655 
0  9999-596 
RDX  9 


THIS  ROUTINE  FINDS  THE  ABSOLUTE  VALUE  OF  A  FLOATING 
POINT  ARGUMENT 


ENTRY 

ACO,  AC  1 

CONTAIN  THE  ARGUMENT 

, 

EXIT 

ACO.  AC1 

CONTAIN  THE  ABSOLUTE  VALUE 

ABS 

ANFNN 

0 

077777 

; REMOVE  SIGN  BIT 

JMP 

0,  3 

i RETURN 

*  •  •  •  1 

i 

i 

i  »»***»*  * 

A  R  C  T 

i  i  »  i  i  i  i 

AN  C 

ALCULAT  I  ON 

i 

• 

2  ENTRY 

POINTS 

ATAN.  ATAN2 

i 

i 

ATAN 

i 

RANGE:  (-PIE/2. +PIE/2) 

« 

ENTRY: 

ACO,  AC1 

CONTAIN  INPUT  PARAMETER 

» 

EXIT 

ACO.  AC I 

CONTAIN  THE  ARCTAN 

A  I  AN  2 

RANGE:  (0,2*PIE> 

CALLING  SEQUENCE:  JSR  ATAN2 

XADD  i ADDRESS  OF  X 

YADD  i ADDRESS  OF  Y 

CNORMAL  RETURNO 

EXIT:  AC0.AC4-  GONTAIN  ARCTANIX/Y) 


1 502v 
i5o;-o 
15040 
15050 
1 5060 
1507- 
1 5'' . 

15' 

15 1  vo 
15;  i<- 
1 5 1 20 
1 5 1  30 
15140 
15150 
15160 
15170 

151  SO 
151':'0 
1 52uG 
15210 
15220 

152  20 
1524o 
1525o 
15260 
15270 
15280 
15290 
15300 
15310 
3  5320 
1 5330 
15340 
15350 
15360 
15370 
15380 
1 5390 
15400 
15410 
15420 
154  30 
1 5440 
15450 
1 5460 
15470 
15480 
15490 
15500 


FOR  ABS  <  X  )  •  1.  THE  FORMULA 

ATAN ( ABS ( X i )  =  PIE/2  -  AT  AN  <  1  /  ABS<  X  >  >  IS  USED 
FOR  ABS  <  X >  O  1 .  THE  FORMULA 

AT  AN ( X  >  =P I £  ^  3+ AT  AN ( ( X-TAN(PIE/8) > / ( l  +  X*TAN (PIE'S) ) ) 
IS  USED  FOR  RANGE  REDUCTION  TO  (0. TAN(PIE/8> > 


ATRET 

0 

, RETURN  ADDRESS 

ATIND 

0 

. 0  FOR  ATAN.  1  FOR  ATAN2 

ATAN2 

SUBZL 

2.  2 

, 1  FOR  ATAN2 

STA 

2.  ATIND 

LDA 

2,  0,  3 

, GET  ADDRESS  OF  X 

DLDX 

. LOAD  X 

DST 

ATX 

.  SAVE  X 

LDA 

2.  1, 3 

.  GET  ADDRESS  OF  Y 

DLDX 

0 

; LOAD  Y 

DST 

ATY 

i SAVE  Y 

INC 

3,  3 

INC 

3.  3 

STA 

3. ATRET 

.  SAVE  RETURN 

MOV# 

0.  0,  SNR 

,  SKIP  IF  Y  .  NE.  0 

JMP 

TOVF 

;  OVERFLOW 

DLD 

ATX 

FOVNM 

ATY 

■  GET  X/Y 

JMP 

ARCT 

i BRANCH  TO  REGULAR  ARCTAN  CODE 

TOVF 

DLD 

PIE2 

'LOAD  PIE/2 

LDA 

2.  ATX 

;  MS  16  BITS  OF  X 

MOVL# 

2.  2.  SNC 

iSKIP  IF  X  WAS  -VE 

JMP# 

ATRET 

i RETURN 

FADNM 

PIE 

i GET  3/2*PIE 

TRET 

JMP# 

ATRET 

; RETURN 

ATAN: 

SUBOL 

2.  2 

i  0  FOR  ATAN 

STA 

2.  ATIND 

STA 

3,  ATRET 

; SAVE  RETURN 

ARCT 

DST 

AT2 

i  SAVE  ARGUMENT 

ANFNW 

0 

077777 

;  FIND  ABSOLUTE  VALUE 

DST 

ATI 

.  SAVE  ABS  <  X ) 

FSBNM 

FI 

; SUBTRACT  FP1 

MOVL# 

0,  0.  SZC 

i  SKIP  IF  GE.  0 

JMP 

LTONE 

i  ABS  t  X  )  LT.  1 

DLD 

FI 

, LOAD  FP1 

IT T  1  -  • 
1552'  ■ 
155i" 
1554'.' 
1555> 

1  556  < 
1557U 
1  SC.?:. 
155*' 
15*''" 
1561' 
i562<- 
156  SO 
15640 
15650 
15*60 
15*70 
15680 
1 5690 
15700 
15710 
15720 
15730 
15740 
15750 
IS"7' 0 
15770 
15780 
1 5790 
15800 
15810 
15820 
15830 
15840 
15850 
15860 
15870 
15880 
15890 
15900 
15910 
15920 
15930 
15940 
15950 
15960 
15970 
15980 
15*90 
16000 
16010 
16020 
16030 
16040 
1 6050 
1 6060 
16070 
16080 


•  1 60 90 

FDVNM 

FORM  1 /ABS< X ) 

16100 

ATI 

.  16110 

OST 

•  SAVE  NEW  AR  3 

16120 

ATI 

.  1 6 1  30 

LTONE 

S  VE¬ 

0.  0 

-  ZERO  PS 

161  4(.. 

STA 

0,  P8 

1  (:  IS 

m  r. 

oci  .'.An  ADr i  imcoit 

AT  1 

1*1  7V 

FSBNM 

FORM  X  -  TAN (PIE  *> 

1*1  S'. 

TP1E3 

1 6 1 90 

MOVL  » 

0.  0.  37'' 

T-KIP  if  x  ,F_  T  AN  (PIE'S) 

1  6  20« 

.IMF 

LTpv. 

1*210 

DLD 

REl  TAD  ART 

1  622'-> 

ATI 

1 62  3u 

FMPNM 

TIMES  TAN(PIE'S) 

16240 

TRIES 

.  16250 

FADNM 

ADD  FP  1 

162e0 

FI 

16270 

DST 

SAVE 

16280 

AT3 

.  1 6290 

OLD 

. RELOAD  ARG 

16  300 

ATI 

.  16310 

fsbnm 

•  SUBTRACT  TAN < PIE/8 ) 

16320 

TPIE8 

•SUBTRACT  TAN(PIE/8> 

16330 

FDVNM 

•DIVIDE  BY  1  -»X*TAN(P  IE/8 ) 

16340 

ATS 

i  16350 

DST 

. SAVE  NEW  ARG 

16360 

ATI 

.  16370 

SUBZL 

0.  0 

.  *1 

16380 

STA 

0.  P8 

. INDICATE  A8S(X)  GE  TAN(PIE/8) 

16390 

LTP8 

DLD 

.LOAD  ARG 

16400 

ATI 

i  16410 

FMPNM 

.  SQUARE  ARGUMENT 

16420 

ATI 

,  16430 

LDA 

2.  ATC 

>  POINTER  TO  CO-EFFICIENTS 

16440 

•JSR 

POLY 

. CALCULATE  POLYNOMIAL 

16450 

FMPNM 

•  FORM  X*P<  X**2> 

16460 

ATI 

;  16470 

DST 

, SAVE  RESULT 

16480 

ATI 

i  16490 

LDA 

0.  P8 

i  16500 

MOV 

0.  0.  SNR 

(SKIP  IF  X  GT  PIE/8 

16510 

JMP 

OK 

i  16520 

DLD 

. LOAD  RESULT 

16530 

ATI 

(  16540 

FADNM 

; ADD  PIE/8 

16550 

PIE8 

i  16560 

DST 

. NEW  RESULT 

16570 

ATI 

i  16580 

OK. 

DLD 

i  16590 

AT2 

(  16600 

ANFNW 

0 

.FIND  ABS  VALUE 

16610 

077777 

t-SBNM 

FI 

MOVL* 

o.  o.  szc 

•JMP 

ALT  1 

OLD 

PIE2 

FSBNIi 

ATI 

DST 

AH 

ALT  l 

OLD 

ATI 

LDA 

2, ATIND 

MOV* 

2.  2,  SNR 

JM£ 

ALT2 

LDA 

2,  ATX 

LDA 

3.  ATY 

MOVL* 

2,  2,  SNC 

JMP 

XPLUS 

moi  m  m 

2*  .?m.'5NC 

"Ml- 

A2NEG 

ADPYE 

FADNM 

PIE 

JMPE 

ATRET 

A2NEG 

FNG 

MOVL* 

2.  2,  SNC 

JMP 

FADNM 

ADPYE 

TPIE 

JMP 

TRET 

XPLUS 

MOVL* 

3.  3.  SZC 

JMP 

A2NEG 

JMP 

TRET 

ALT2 

LDA 

2.  AT2 

MOVL 

FNG 

2.  2.  SZC 

JMP 

TRET 

ATX 

0  0 

ATY 

0  0 

ATC 

ATC 

ATC 

4 

0  79866237E-1 
-0  13852054 

0  19974467 
-0  33332799 

0  999999982 

ATI 

0  0 

AT2 

0  0 

AT  3 

0  0 

PIE8 

0  39269908 

TPIE8 

0  41421356 

P8: 

0 

; FORM  ABS(X)  -  l 

. SKIP  IF  ABS<X>  GE  1 
; ABS(X)  LT  1 


■  FORM  PIE/2  -  AT AN< 1 / ABS ( X 
■ SAVE  RESULT 
•  LOAD  RESULT 

. GET  ATAN/ATAN2  INDICATOR 
; SKIP  IF  ATAN2 
.  ATAN 

;  GET  SIGN  OF  X 

>  GET  SIGN  OF  Y 
•SKIP  IF  X  -VE 
.  X  +VE 

.SI  !P  IF  Y  -VE 

.  ADO  PIE 

. RETURN 
. NEGATE 

iSKIP  IF  X  -V.C 
.  ADD  PIE 
i  ADD  2*PIE 

.RETURN 

iSKIP  IF  Y  +VE 
; RESULT  -VE 
i  RETURN 

;SKIP  IF  +VE 
.  NEGATE 
.  RETURN 
.  ATAN2  X 

>  ATAN2  Y 


i  ZERO  IF  X  <  PIE/8 


>  > 


I  c  2 

I/./:.  4. 

1 

1 

1 

I/.-.' 


J  ,  .  . 

I. ,74'  ' 

1o76i. 
167" 
167:.-" 
1 67'-'", 
1 6800 
16810 
1 60  _  ■ 
16880 
1684" 
16650 
16860 
16670 
16880 
1 6890 
16900 
16910 
16920 

169  JO 
16°40 
16950 
16960 
16970 
16980 
16990 
17000 
17010 
17020 

1 70  30 
17040 
1 7050 
17060 
1 7070 
17080 
17090 
17100 
17110 
17120 
17130 
17140 
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***************************************************************** 


****  **  *  * 

*  *  *  *  * 

*  *★  *  *  **** 

****** 
****  **  *  * 


****  ** 

*  *  * 

***  *  * 

*  *  * 

****  ** 


PROGRAM 


* 

* 


***************************************************************** 


THE  GDHED  ROUTINE  DOES  THE  MATHEMATICAL  CALCULATIONS  OF  THE 
GOHEO  SYSTEM  ANO  OUTPUTS  THE  RESULTS  TO  THE  AUXILIARY  EQUIPMENT 


f 

E*iT  START 

GMT  LOOK 

£<'?i  AT*ni  i-r-r.T 

£<TD  0:  cT  OFLT 

c  <T‘j  :E  "  Z OL^NT  OUIT  F  jR^ 

e  \tn  cj  i r 


•:  ?i  *jt 

PT  / 

1  >"'0 

I ox  jDOPFLEP  I/O 


'  i  :•< 

*;,r.R 

l  :• 

EPK-1P 

<5 

iTTNA  0 
MAr  l  4 
STTNA  0 
.JO  4 

LDFMh  2 
4 

LT*K  V,I  I 

1  1 
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ADR  t 
LDFNA  2 
.  IM4 
LDFNX 
i'  1 1A?-J 
LDFNW  2 
7  7 

AMD  ; .  1 1 

••'.IF  -..0,6  7  f 

•jMF  ABORT 
LDFNW  2 
O7'’7‘'0 
AND  1 . 2 
STTNA  2 
SHDO 
LDFMW  2 
060000 
AND  1 .  2 
STTNA  2 
HOLE  1 
LDFNW  1 
0 

ADD  1,  2.  SZR 
JMP  A 
LDFNA  0 
SHGG 
RLSH  3 
MOV  0.  1 
•JMP  SCAL 
A  LDFNA  2 

H0LE1 
LDFNW  1 
060000 
SUB  l .  2.  SZR 
•JMP  ABORT 
LDFNA  0 
SHOO 
LLSH  3 
RLSH  6 
LDFNW  2 
1 76000 
ADD  2.  0 
MOV  O,  1 
•JMP  SCAL1 

H0LE1  O 

SC AL  LDFNW  0 

0 

FLO 

•JMP  NEXT4 
ABORT  JMP  LOOP 
LOOP  LOOP 
AHO  AHO 
MARK  4:  0 
•J04  0 


ABORT  ABORT 

scali  ldfnw  o 

177777 

FLO 

ME  <T4  LDFNA  7 
HARK  4 
DSTX 
DSP 

INC  2,  2 
INC  2. 2 
S'TNA  2 
MARK' 4 
LDFNA  2 
J04 

INC  2,  2 

*  STTNA  2 
JO  4 

•JMP  8.  AHO 
ADR1  BLK  30 
CMAS3  77 
277 
137 
337 
037 
237 
117 
317 
57 
257 
157 
357 

II  LDFNA  2 

MARK4 
LDFNU  1 

30 

SUB  2.  1,  SZR 
JMP  VEL2 
JMP  8.  12 

VEL2  DLDX 

ADR1 
STTNA  0 
TEMPI 
LDFNW  2 
377 

AND  2.0 
LDFNA  2 
JO  4 

LDFNX  3 
CMAS3 

SUB  0.  3,  SZR 
JMP  ABORT 
LDFNW  2 
1 40000 
LDFNA  0 


TEMPI 
AND  2.  0 
RUSH  14 
STTNA  0 
MINVS 
LDFNW  2 
o-’yjt  - 

AND  1 .  2 
STTNA  2 
HOLE 
LDFNW  2 
060000 
AND  1 . 2 
STTNA  2 
HOLE1 
LDFNW  1 
0 

ADD  l.  2.  3ZR 
JMP  C 
LDFNA  0 
HOLE 
LLSH  2 
LDFNA  1 
MINVS 
ADD  0.  1 
JMP  SCAL5 

TEMPI  0 

HOLE. 0 

MINVS: 0 

C :  LDFNW  1 

060000 
SUB  1.2.  3ZR 
JMP  @  ABORT 
LDFNA  0 
HOLE 
LLSH  2 
LDFNA  1 
MINVS 
ADD  0. 1 
JMP  SCAL6 

12  12 

3CAL5:  LDFNW  0 

0 

FLO 

FDV 

TEN 

JMP  NEXT3 

SC ALA  LDFNW  0 

177777 
FLO 
FDV 
TEN 

NEXT'S  LDFNA  2 
MARK  4 
DSTX 
DSP 


!  NC  2i  2 

in r  2.  j 

STTNA  1 
MARK  4 
l  PPMA  2 

<0-i 

TN»  2 
-•T  TNA  j 
.  Ifi4 

.  IMP  •?  I  t 

TEN  i'*  i 
I  1  !  * 

DSP  r=L  y  i:0 
r .?  L  DFNA  2 

MARK  3 
DLDX 
DSP 
DST 
sp 

INC  2.  2 

INC  2.  2 

DLDX 

DSP 

DST 

CP 

INC  2.  2 

INC  2,  2 

DLDX 

DSP 

DST 

SR 

INC  2.  2 

INC  2.  2 

DLDX 

DSP 

DST 

CR 

INC  2.  2 

INC  2, 2 

DLDX 

DSP 

DST 

SH 

INC  2.  2 

INC  2,  2 

DLDX 

DSP 

DST 

CH 

INC  2,  2 
INC  2. 2 
DLDX 
DSP 
DST 


INC  2,  2 

INC  2,2 

DLDX 

DSP 

DST 

VY 

INC  2.  2 

INC  2,  2 

DLDX 

DSP 

DST 

VZ 

INC  2,  2 

INC  2,  2 

DLDX 

DSP 

DST 

VH 

INC  2,  2 

INC  2,  2 

DLDX 

DSP 

DST 

VO 

INC  2. 2 

INC  2,  2 

DLDX 

DSP 

DST 

VV 

LOFNW  0 

0 

STTNft  0 
MARK  4 
LDFNA  2 
MARK  4 
DLDX 
ADR2 
LDFNA  3 
CMAS2 

SUB  3,  0-  SZK 
JMP  9  NG 
LDFNW  0 

•3 

ADD  0.  2 

DLDX 

ADR2 

FLO 

FDV 

DEN01 

FMP 

MUM  I 

FST 

GLATT 


osta  r 

•  IMF  CALL 


LDFNW  O 
1  77  7/’-’ 

.  IMP  OK 
LDFHW  n 
1 77-7  ’ 

■  iMF-  1  it  1 

FLO 

VX 

FMF 

VX 

FST 

LOT  1 

FLD 


FMF 

VY 

FAD 

LOT  1 

FST 

LOTI 

FLD 

VZ 

FMF 

VZ 

FAD 

LOTI 

FST 

LOTI 

FLD 

OVN 

FMF 

VO 

FST 

ST  1 

FLD 

VH 

FMF 

OVE 

FSD 

ST  1 

FST 

ST2 

FLD 

VD 

FMF 

OVE 

FST 

ST  1 

FLD 

OVN 

FMF 

VH 

FAD 
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DEQU 

FMLOK 

IOX 

(1 

1 40000 
NOT £6*2 
12 

ERROR 
FLD 
ST3 
FSB 
3T4 
FST 
LOT  2 
ENOU 
FMLOK 
LDFNA  0 
DAVE3 

JSR  03ET 

FLD 

LOT  2 

■JSR  «  OFLT 
3 
2 

DEQU 

FMLOK 

IOX 

0 

1 40000 

N0TE3*2 

14 

ERROR 
ENQU 
FMLOK 
LDFNA  0 
QAVE1 

•JSR  @  03ET 

FLD 

LOTI 

JSR  a.  SORT 
JSR  «  OFLT 

1 

DEQO 

FMLOK 

IOX 

0 

1 40000 

N0TE2*2 
1  1 

ERROR 
ENOU 
FMLOK 
LDFNA  0 
0AN2 
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J3P  £  OSET 

FLD 

GSTAT 

,ISR  ■*  OFLT 


DEOl.i 
FMLOK 
I  OX 

1  41  u  >00 
MAN2*2 

ERROR 

NO  LDFNW  0 

TTNA  0 
MARKS 
.IMP  @  +2 
..IMP  +  2 
LOOP 

ERROR  QUIT 
OTAN  ATAN2 
SORT  SORT 
DAVE  NOTE 1*2 

NOTE  1  TXT  "  <40X40>" 

DAVE7  NOTE7*2 
DAN 2  MAN2*2 

MAN2  TXT  “  '15>-:12>“ 

OENOl  2 1 47482747  0 
Ml  'Ml  ISO  0 
OLATT  ELK  2 
i.  MAS  2  147155 
OLONO  ELK  2 
MASK  2  077777 

MASK 1  100000 
NUM2  159  995117 
DEN02  32767  0 
OON  ELK  2 
GVE  ELK  2 
GST  AT  ELK.  2 
ADR2  ELK  316 

N0TE7  TXT  “  <40X40>“ 

DAVE 1  N0TE2*2 

N0TE2  TXT  “  <40X40> 

DAVE6- N0TE6*2 

NOTES  TXT  "  <40X40>" 

DAVE3  NOTE 3* 2 

N0TE3  TXT  “  <40X40>“ 

STt:  ELK  2 

ST2  •  ELK  2 

ST 3  ELK  2 

ST 4  ELK  2 

L0T2:  ELK  2 

LOTI  ELK  2 


MARI  3 
FRl  HALT 
S*  C-;LK  2 
CP  BLK  2 

SR  E:Lt  2 

CR  CU  2 

"  H  BIT  j 

elm  ;• 
<  ELI  - 

V'  BIT  •' 

V7  EU  2 

VH  E:Lt  2 

VD  BLt  2 

VV  ELK  2 

END 


TtTL  TOOK 
NREL 

EXTN  WAIT 
EXTN  PTY 
ENT  EEC  COUNT 


COUNT  WAIT 
1 

FLB 

SEC 

FAD 

B 

FST 

SEC 

JMP  COUNT 


SEC  0  0 


